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テク ノボ リス ソフ ト 

'* で MSX SPECIAL 

お も し ろ プ ログ ラム 全 2 の ら 本 』 


定価 3,200 円 

製 是 番号 32TSM-]1 

発 元 中 

この 0 テーブ に は ほ 、 
OR MSX ベス トト BOJ の 

8U ン 0U6 ペ ー シ 、 1250 ご 892 ペー シ の 
ブロ グラ ム が は ほ い づつ て いま す 。 


(た だ し 、 テ ー ブ プ の ブロ グラ ム と 掲載 プロ グラ ムリ ス 


ト が 一 部 異な る 点 が あり ます の で 、 ご 了承 くだ さい ) 


すり hr! 
UK び 9} 


呈 和 ちこ み も ひと つの 修行 
任 主 (に 掲載 され て いる フロ グラム を 打 


PP つた す かやの を hy 
グラ ム を 勉強 し て いる キミ 。 キ ミ は 正しい 
それ が M S X に 限ら ず パ ソコ ン ・ フ ログ ラ 


ンー と し て 一 人 前 に な る 最短 誌 の 道 な の 
けれ ども 、 と き に は 、 打ち こみ ミス や 

ら 、 印 刷 の ミス や ら の せい で や 。 ど うし て も 

ゝ まく 動か ず 、 途 中 で あき ら め ち ゃ っ た … 
レト ペ まり 設 明 を 読 

むと すっ ご く お も し 
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還 デ テー DE 
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こ サ ヨナ ラ し て 、 好 
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テー ブ プ 版 と ムッ ク が あれ ば 、 
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テク ノボ リス ソフ ト 
cMSX SPECIAL II 
お も し ろ プ ログ ラム ハム 全 の ら 本 ,」 


定価 3,800 円 


製品 番号 38TSM-2 

9 月 25 日 発売 予定 

ご の デー ノブ に は 、 

『FOR MSX ベス トワ 5 つの 
人 29 ペ ー ジ シ 、 8 一 96 ペー シ の 
ブロ グラ ム が は ほ は いつ て いり ます 。 


は な が い 。 で できあがっ た プロ ダグ ラム に だ いろ い 
ろ と 手 を 加え て いく の も 、 い い 勉 強 方 法 な 
の だ 。 特に ブロ グラ ム の 解説 を し て いる と 
ころ に 分 い 宅 い る 「 チ ェ ッ ク ポ ポイント” を 
見 れ ば 、 ち ょ っ と し た 改造 の や り 方 も 書い 
て ある し 、 変数 リス ト や ブロ グラ ム の 説明 
を 見 て 自分 な り に ゲー ム を 改造 し て いく の 
も と て も 勉強 に な る の た 

呈 は じ め だ ば がり の の キミ も 

まだ 、 長 い ブ プロ グラ ム を 打ち こむ 自信 の な 
い キ ミ に も お すす め 。 テ ー フ か ら LOAD 
し て ゲー ム で 遊び な が ら 記 事 を 読ん で いく 
の は 、 市 販 ソ フト で た だ 遊ぶ の と は また 違 
っ た 楽し さ が あ る の だ 。 こ れ が キッ カケ で 
キミ も また テク ノ ポ リス か ら ゾ クソ ゾク と 登 


し た アマ ナチ ュ ア ・ ス ネ ダ タープ ダラ マー 
の 仲間 入り を する よう に な る か も 。 キ ミ の 
未来 は 明る いそ ぞ 


だ か み ら 、 キ ミ も あな だ も 、 わ を し も が も 、 テ クン が ソス ソフ トム の テー プ 放 を 上 臣 ば つ / 
と いう わけ で 、 テ クノ ポリ スソ フト の 宣伝 を お わり ます 。 


テク ノ ポ リス ソフ ト の ご 購入 は …… 

@ 全 国 の パソ コン ショ ツ ッ プ 、 大 型 書店 に お いて 
あり ます 。 な る べ ぐ 、 お 店 で お 買い 求め くださ 
い 。 

@ お 店 に お いて な ガ つ だ り 、 近 くに テ フ ノ ボリ 
スソ フト を 扱 つ て いる 店 が な ひつ だ り 、 ま に 入 
れ に ぐい 場合 
だ だ し 、 送 料 と 手数 料 で 計 300 円 が 加算 され ます 
の で 、 ご 注意 こく ださい 。 通信 販売 ご 希望 の か だ 


ざ 


は 、 通 信販 売 も ご 利用 に な れ ま す 。 


は 以下 の ま 順 で お 申し 込み ぐだ さい 。 
③④ 現金 書留 で 、 
②@ 定 価 に 送料 十 手 数 料 ( 計 300 円 ) を 加え だ 代金 


で FOR MSX SPECIAL」 の 場合 は 3500 円 、 


『FOR MSX SPECIALTII』 の 場合 
に な り ま す ) こと 、 

③ 希 望 の ソフ ト 名 と 定価 、 あ な だ の 住所 ・ 電 話 
番号 と 宮前 を 明記 し だ ま 紙 を 同封 し て 、 

〒105 東京 都 港 区 新橋 1 -18-21 第 1 日比谷 ピル 


は 4100 円 


帆 徳 問 コ ミュ ユニ ケー ショ ンズ ・ ビ デオ ソフ ト 
営業 部 テ フ ノノ ボリ スソ フト 係 

偽 (03)591-9161⑩ 

まで 、 お 送り ぐだ さい 。 


な お 、 テ クノ ポリ スソ フト の 内 容 に 関す る ず 問 
い 合 わせ は 、 幌 徳間 書店 ・ テ フン ノボ リス 編 集 部 
内 テクノ ポリ スソ フト 係 ・ 谷 (03)433-6231⑩ 
へ お 願い し ます 。 


この 本 は 、 月 刊 「 テ クノ ポリ ス 。、 隔 月 刊 
「 プ ログ ラム ポシェ ッ ト 』、 テ クノ ボ ポリス 増 和 
FOR MSX SPECIAL」 に 掲載 し た ブロ グ 
ラム を まとめ た も の で す 。 


掲載 プロ グラ ム は 、 印 刷 ミ ス 、 バ グ な 
ど が な いよ うに 、 十 分 に 注意 し て 再 チ 
ェ ッ ク 等 を お こ な っ て お り ま す が 、 万 
が 一 不鮮明 な 箇所 や 動作 の お か し い プ 
ログ ラム な ど あ り ま し た ら 、 打 ちこ み 
の ミス で な いか が どう か を あら か じ め ご 
確認 の うえ 、 電 話 ま た は 往復 ハガキ で 
編集 部 ま で お 問い 合わ せく だ さい 。 
電話 の 場合 は 炊 の 点 に ご 注意 くだ さい 。 
(① 必 ず 、 こ の 本 を 手元 に お いて お 問い 
合わ せく だ さい 。 

② な る べく 、 お 問い 合わ せ の プロ グラ 
ム が 入力 され た MSX を 近く に お いて 
ご 質問 くだ さい 。 

③ お 問い 合わ せ は 月 曜日 か ら 金 曜日 の 
午後 4 時 か ら 6 時 の あい だ に お 願い し 
ます 。 

較 問 い 合 わせ 先 

ぁ 105 東京 都 港 区 新橋 4 -10- 1 

(株 徳間 書店 テク ノ ポ リス 編集 部 

倫 03(459)1700 


田 掲 載 プ ログ ゾラ ハム の 初出 誌 一 覧 ー 
プロ グラ ム ボ ポシェ エッ ト NO.2…1985 年 4 月 ら 日 発売 


FOR MSX 5 ら FEOIAIL ……" 1964 年 / 月 26 日 発売 プロ ケラ / 、 ポ シェ ソト NO.3…1985 年 6 月 5 日 発売 
フロ グラ ルム ポ シ エ ッ ツ ト VOL 2….1984 年 4 月 5 目 発 売 1 フロ SumPLytun3 oi 二 し て ua プ ョ クラ ム ap26 


プロ プラ ム ボ シェ エッ ト VOL. づ …1984 年 月 5 日 発売 の 『BALL。 の み で す ) 

ブ プログ ラム ポシェ エッ ト VOL.4….1984 年 10 月 5 日 発売 月 午 デ フク ノ ポ リス 64 年 9 月 号 ……1964 年 月 16 日 発売 
ブ プログラム ポシェ エッ ト VOL. ら …:1984 年 12 月 5 日 発売 月 和 サ テ ノ ノ ポリ スズ 65 年 月 号 ……1965 年 月 16 日 発売 
プロ グラ ム ボ ポシェ エッ ト NO.1…:1985 年 月 5 日 発売 月 サテ フ ノ ポ リズ ス 85 年 4 月 号 ……1965 年 ご 月 16 日 発売 


FOr MX 


写真 を 見 て 、 な ん だ フツ ー の ブロ ッ ク 
くず し じゃ な いか と 思っ た キミ は 甘い / 
ムズ いこ と この うえ な し の 、 変態 版 な の 
じゃ . グ 


川遊び 方 


フツ ー じ や ゃ な いと ころ を の 1] は 、 ラ ケ 
ッ ト が 上 下 に も 動く こと 。 こ れ な ら 1 回 
打ち 逃し て も ボー ル を 追い か け て 打ち 直 
せる し ( 神 技 だ けど ね ) 、 上 下 の 動 き を 調 
節 し て 、 ボ ー ル の スピ ー ド を 加減 する こ 
と も で きる わけ が だ 。 

だ だ し 、 ラ ッ ツー じゃ な いと ころ を その 2 
と し て 、 ラ ケッ ト の 動き が 慣性 運動 に な 
っ てい る 。 紫 ま っ て いる ラケット を 
動か を うと し て も 、 急 に は ム 
リ だ 。 だ ん だ ん 加速 し て いく 
し か な いか が からだ 。 逆 に 、 一 度 
動き だ どす と 、 今 度 は いつ まで 
も その まま 。 逆 方 向 に 加速 する 
カ か 、 スティック の トリ ガー( キ 
ー ボ ポー ド な りら スペ ー ス キー) を 
押し て 、 ブ レー キ を か け な く て 
は ば は ならない の が だ 

フツ ー じ ゃ な いと ころ その 3。 ポ ボール 
は 放線 征 動 を する 。 ち ょ うど 、 空 中 に ボー 
ル を つよ うに な っ て いる の だ な 。 

さて 、 う まく ブロ ッ ク を 人 金 部 消し て 面 
を 進め た と し よう 。 す る と 今度 は ボー ル 


衣 放 文 文 大 文 文 文 文 文 
ども みな さん 、 お 久しぶり 


で す 。 HC-20 で お な じみ だ っ た の で す 
が 、 MSX で よみ が えり まし た 。 

と あく コシ ビエ ネー デー タダ タ な は も さよ 
っ と 離れ て いた ん だ けど 、 大 学 受験 も 終 
わっ て 、 今 は て も ちの ブタ さん で す 。 で 、 
ショ ー ト プロ グラ ム を 作っ た ん で 、 ボ シ 
ェ ッ ト に 載せ て も ら っ ち ゃ いま し た 。 ど 
う も 頭 の 片隅 か ら ブ ツリ の 法則 が 離れ な 
く 、 こ ん な ゲー ム に な っ ちゃ いま し た / 

受験 の 方 は 、BIAS さ ん (改名 し て トド 
や ん に な っ た ん で すっ て ) の 大 学 を 受け 
た ん で すけ ど 、 大 学 側 か ら 「 来 な いで い 
い / 」 っ て 言わ れ ち ゃ っ て 、 今 は ② の 身 
分 に な っ て し まい まし た 。 ( 田 崇 由 紀 )。 
キキ キキ キキ キキ そ キキ \ キ 年 


衣 娘 娘 文 文 文 文 文 娘 太 文 文 エ 
キャ ャ キャ キャ キャ キャ キキ ャ キャ ャ キャ キャ キオ 


NN 
へ ) 


田 By 田 宗 由紀 
16K 以 上 用 

が 点滅 し た り 、 は ね 返 
りか だ た が に ぶ く な っ た 
りす る 。 

と に か くく 、 慣 れる まで は 最初 の 1 打 き 
えた てき な い は ほど ムズ い 。 ヨ ツ は 、 な る べ 
《 ハ イス ピー ド で プ ブロック に ボー ル を ぶ 
うう 由 る さと だ 。 


川 プ ログ ラム 解説 


文 変数 リス ト 

B…… ボ ー ル 数 (2 evaeas 声 減 スイ ッ チ 
1 0 メス コア 100 まる つ 

Massos プ 令 ッ グ ク の アラ グ Nsesess ジ 史 


の X 方 


Ne 


は を まま を ませ 


や っ と 3 打 ほ ど 打 ち 返 し た と ころ 。 1 の 写真 と くら べ て みて ラケット の 位置 が 下 に 動い た 
上 の 方 へ 出 て いこ うと は 思う が 、 な か な か そう は いか な い の だ 。 


と ころ に 注目 / 


聞 
.。 


\- 


速度 

R …… ラケット の Y 方 向 の 加速 度 
ST …… ボ ー ル の X, Y 方 向 の 速度 
U, V…… ラケット の X, Y 方 向 の 速度 
W, Z…… ボ ー ル の X, Y 座 標 
XY …… ラケット の X., Y 座 標 

廊 ブ プロ グラ ム の 説明 

10 一 290 イニ シャ ライ ズ 
300 一 400 ラケット 移動 
410 一 490 ボー ル 移 動 
500 一 590 ブロ ッ ク を 消す 
600 一 670 イン ター ラプ ト 処 理 
680 一 740 ボー ル の 爆発 
750 一 770 ゲー ム オ ー バ ー 
廊 作 者 自身 の チェ ッ ク ポ イン ト 
ジョ イス ティ ォ ッ グ を 持っ て いな い 人 は 、 
50 行 の し 上 = 1 を し =0 に する と 、 キ ー ボ 
ー ド で 遊べ る よう に な る 。 

まだ た 、SELECT キ ー を 押す と 、 ジ ョ 
イス ティ ッ ク <* 一 キ ー ボ ー ド の 変換 が で 
きる よう に な っ て いる 。 
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XT 


9 DRTA 99。9d。99,99。5 コ 。Z4.BD 。FF ,99.99。99d,99.58, 55 1F ,3 コ 389,99。99,9 昌 。 90. 9 。 MO ,H。 
998, ロ dd,。99。 96 , 86 , 66 , 9 ,99 


18g 
ぅ 上 9 
118 


99 , 


1 29 
1 39 
149 
1 5 
1 Sg 
1 Z9 
189 
1 9 
と 4 
Z109 
ZZ9 
39 
2496 
5@9 
269 
ZZ9 
289 
Z ツ 9 
づり 9 
ざ 1 ピ 9 
づ 29 
3 
349 
づら 9 
うら 8 
ざ /Z9 
389 
づ ?9 
499 
419 
429 
439 
449 
459 
4 る 9 
47Zg 
489 
4 アァ 9 
っ 99 


DATA 96,86,69,96,93, @ ア ,dF,dF ,9F ,9F 。@Z。d3,99 dB。dd。dG。dGd。G,GB。Gd。C。EB 。FB 。FG 


、F9 ,E , C9 , 69 。96 ,99 , 99 


DATA 9,GdG,d9,99。dG,dG dd,99,GG。99。dd, ロ d。FF 。FF ,FF , 9 , 8 。d9 6,dH, 9 。G。 ロ 9 ロ 
9 ,99 ,d9 ,FF 。FF ,FF , 99 
RESTQRE 149 

FR 1!=@TO8:READ QCI)。RK 
DATA 9,9,9。-2.8」2。-2,2。 
P ニ 9 : ヒー ニ 9 : ロニ ッ 


2 sgFNE※XT 
2 


1 ) :NE 
BB,2。2。9。2。B。ー2。2。-2.8。9。-2。2 


LINE (8 ヨ ,9)-*185。122) 。 1 ,BF 

LINE (98,118)-(191 。186) ,。S。B 

FOUR !=gT ロ 4:FUR J=@TO19 

LINE (19+JX16,29+I※19)-( つ 3+J※1 る 6。2Z+Ix19) 。13-1 。BF :M(J。 1 )=1 

NEXT :NEXT 

PUT SPRITE 39 。〈17Z9。169) ,4。4 

P=P+ 1 :F=P\3: に =1 SGN〈P MOD 3 

X=1 Z9 :Y ニ 169 :U ニ 9 : り =9 :N=55 :S=S+ 1 

Q ロ PEN "GRP:" AS 提 1:LINE (255,15 ウ ) (122,152) ,3,BF :PRINT 提 1 。" SCENE" 』P CLOSE 


ー@ : Z ニ 9 : 5 ニク : 9 : ロー ニ Bー1 

PUT SPRITE 2?,〈8,Z9) ,15,3 

PUT SPRITE 2Z,(@,29?) ,d,9:PUT SPRITE 28,〈,28?) ,。1 

UPEN "GRP:" 人 QS 昔 1:LINE (255。5 ウ (192。52) ,。3。BF:PRINT 提 1 "BALLS" 』B:CLOSE 
IF STRIGXL)=9 THEN 316@ 


IF INKEY ま =CHR ま (24) THEN 上 =1-L 

IF STRIG(L)=ー1 THEN U=U/2』 り = い /2 

1=ST】I CK し ) 

U=U+Q( TI):IF ABS(U) >1Z THEN U=1Z*SGNXU) 

いり = い V+R( 1 ):IF ABS(U)>19 THEN いり =19*SGNC い ) 

X=X+U: IF X く 1 THEN 合 1=1 :X= ニ 1 ELSE IF X>178 THEN 人 1=1 :X= ニ 1 ZZ 
Y=Y+ り iTIF Y<19 る THEN 人 Q1=2:Y= ニ 1 る ELSE IF Y>1Z9 THEN Q1=2:Y=17@ 
SPRITE QN 

PUT SPRITE 39,〈X。Y) ,4,4 

IF 人生 1=1 THEN U=ーU ELSE IF Q1=2 THEN い =ー い 

内 1 ニ 6 


D=9@ iT=T+ .5iIF T>1g THEN 丁 =18 

=M+Si IF MI く 8B THEN S=ーS: し =8 ELSE IF MM>1Z8 THEN =ーS: し =1 7Z8 

〆Z ニ 〆Z+Ti IF Z く 9 THEN 本 =-TiZ=gd ELSE IF Z>183 THEN GOT ロ Z18@ 

SPRITE QN 

PUT SPRITE 2 タウ (MM。Z) 415-15*CXINTKRNDK1)*2) 。3 

IF_ POINT “MM+3。Z+8)>8 OR POINT KM+8。Z+3)>8 OR POINT KMM+8。Z+12)>8 OR POINT (MM+ 


12,Z+8) う >8 OR POINT (Mt8,Z48)>8 ロ R PHINTKU+。Z+5) > ロ R POINTXM+18,Z+19)>8 OK POIN 
TKM+5,Z+19)>8 OR POINTXKU+19。Z+5) > THEN GOSUB 549 


ご 1 ピロ 9 
っ 2 
に 12」 
っ ら 4 ピ 9 
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らら 9 
ご Z ロ 
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ら 99 
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ら 6 
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フ 3g 
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GGH 


IF N= ニ 9 THEN 1 くる Sg 
GUTO 33@ 


1 ニ = バー の うま 1 る :J ニ (2ー1 さ 6) う \19:TF MX TI。J) う = THEN る 29 ELSE = ニーT\#。/ 5 ニーS テ 。 の (エゴ)=9 :Nー 


E=E+2^( 品 -J) + 人 SBS〈S) + 人 BS〈T) 

LINE (19+Ix1 る 6,。29+T\19 う (23+T 16。2 フ +J*19) 。1.BF 
SUND る,31 :SOUND Z,24Z:SOUND 8,13:SHUND 13,@ 
0PEN "GRP:" 人 QS #1 

LINE て 255。32)ー て 1 の 2 39) 。3。BF 


PRINT 拉 1 。" RIGHT ま (STR も (E+199609!) 5) :"g" 
CLOSE 

RETURIN 

IF T<g THEN 7Zg@ 


PUT SPRITE 22,〈M,Yー8) ,15。3 

よき ご すずや の ビュ だ AB 19 THEN =SGNKT)*16 
S=5+U:TF ABSCS)>15 THEN 5=SGNKS)*15 
ニーロ 

SOUND 1 ,3:SOUND 8。1 さ :SUND 2,254:SOUND 12,18:SOUND 13,8 
RETURN 

PUT SPRITE 2?, て @,29 の ) ,@,3 

PUT SPRITE 28, て MM,184) ,8。2 

SCUIMD Z,24Z』S ロ UND 8,18:SOUND 12,186:SOUND 13,8 
FOR !=GTO2gG 

SUND さ ,INTCRNDC1) *32) 

NEXT 5 前 
IF B>@ THEN 2sg ン 全 4 に 30 分 も か カ 0 
SOUND 6』9:SOUND Z,247:SOUND 8。1S:SQUND 12。8 の る の 

0PEN "GRP:" 各 料 1:PSET 38,139) iCOLOR ウ :FOR =1TOB:PRINT#1 MID ま て"Game over" 

2 ョ 7 "jiSHUND 13。6:FUR J ニ TU396 :NEXT :NEXT :CLOSE 

IF STRIG〈L)=-1 THEN RUN ELSE 86G 


アア 


革 全 の /)// 7 人 人 


ぐ 巡 み 


最近 、 す っ か り MSX に 活 っ ちゃ っ 
て 、 テ クノ ポリ ソフ ト に も 進出 し て い 


に 持っ て き て くれ だ た の が 、 こ の 人 故 笛 味 
ゲー ム 。 サ ウン ド も 、 夜 ひと り ぽ っ ち 
で や る と グッ と 盛り あがり を うな ミス 
テリ ー タ イア て 、 ワ ウー と 動 《 2 つの 
手 が 不 思 議 に 楽し い の だ 。 

あっ と いう ま に 編 集 部 内 で 人 気 を 博 
し 、「 も っ と バー ショ ン ア デップ し て 、 テ 
クボ ポリ ソ フ ト に し よう ぜ /」 と ジャ マ 
森 き ん が 中 ん だ は ど 。 どーも 、 ホ ント 
に そう な り そ う だ け と ね 。 

さて 、 ゲ ー ム の や り 方 。 

青い 手 と 赤い 手 の 2 つ を 操作 し て 、 
部 屋 か ら 6 部屋 ヘ へ ボール を 移し 、 な る で 
〈 高い 点数 の ほう に 落と す の だ 。 と い 
っ て も 、 カ ー ソ ル ・ キ ー で 動く の は 青 


HI ユ 


エー 
る び tScis] 


デー WM 
o 二 立 填 9 
寸 避 志 S 融 誠 区 きど と は は は で 蘭 ー 


<3$ 一 入 こ < べ て 


過 | 民 清 座 A(i(0 て SW 
ーー で 芝生 A し と ぶり 某 潤 屯 


5 
は 
す ^ 
< ツ 
せ 
き 
ん 
| 
ん 
抽 
げ 
ち 
や 
1 
ょ 


り 史 ( 革 


WW 


い 手 だ け 。 赤い 手 は し ば らく だ っ て が か 
ら 青 い 手 の 通 っ た 道 を 追い か け て いく 
ょ よう に な っ て いる 。 ス ペー ス ・ キ ー を 


押す と 、 そ の と き 青 い 手 と 赤い 手 の 指 
る し て いる 部 屋 の 中 身 が そっ 〈 く りり 入れ 


か わる の だ 。 

で も 、 部 屋 の 壁 や 
床 は と きど き 勝 手 に 
穴 が あい だ り 、 消 え 
て し まっ だ た だ り …… 
ー ル が どこ に いく 〈 く か 
な か な か 予測 が つか 
な いん だ よ 知 。 

画面 左下 隅 の 部 屋 
か ら ボ ー ル が 沙 ち て 


HH 
| 


HHf HHHI 
HHHHNWHHHH 


HHHL 


部 屋 か がら 部 屋 ヘ ボ 
ー ル を 移動 させ て ブ 
ラス の 穴 へ 落と そつ 。 


Ha 血 
HL 
HL 剛 
LU 
HLL 


HH 


HLHTUIHI 
HH 


3 
1 


| 


し キネ う と だ と えた 1 人 條 て も 、 ゲ ー ム オー 
2 ペー 人 選 な がら っ て し まう 。 リプ レイ ほり 婦 
ー ン ・ キ ー を 押 そ う 。 

は ば はじ め は わり と ラグ チン だ けけ と 、 そ を 
の うち 居 ク しい パ ニッ ク に な っ て 、 限 
り が くみ ズ ス く な っ で いて ぞ 。 ちなみに 
編集 部 の HI-SCORE は 4910 点 / 


Q 
O 
y」 
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」 
| 
H 
H 
HH 
日 
HHUUHHH 


HHHHHHHH 
| 
HHHHHHHHH 
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Ui 
ゴ 
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HHEHR 
HH HH 
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時 
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HHHHHHHH 


手提 提 提 
ki: 


] 


用 拍手 
piu hi は 


は 
HHHHL 


HH 


チラ 7 ル / ガ ん / 


LOT LOT LOT 
19 CLEAR 399.&8HE809 449 DATA ひ F3C9EA9993D29FC7BFEAA3994FE9630 
29 SCREEN 1.2.9:WIDTH32:COLOR 15,.9.1 459 DATA999E28739973997399733C1CFEB92099A 
39 DEFINT A-Z:DEFUSR=&HE899 :DEFFNA=PEEK( &H 469 DATAED5F9F9E9FE69E571E99ED5309F3EBP5B . 
に 3 に) 479 DATA92F3219BEF7AFE953894D69518F83C9E 
49 FOR 1I=9 TO 54:READ A$:FOR J=9 TO 15 489 DATAA99699993D29FC7A9E9699D69539FB7B 
S9 POKE &HE899+Ix16+J.VAL("&H"+MID も (A$,Jx2 499 DATAFEAA3994FE9639997323732373237323 
+] 。2) ) S99 DATA733CTCFEB9299BED5FE61FFE1439F857 
69 NEXT:NEXT S19 DATA1E99ED5392F32A7DF329ED5F47BC361B 
79 READ A$,B$:A や =A$S+B$ も :B$="" S29 DATA3A7DF32149F9A85F1699191936292199 
89 FOR = TO 31:B$=B$+CHR$(VAL("&H"+MID$( S39 DATAF9961811299936AF1919FBDD21FFF2DD 
A$, ITx2+1 .2) ) ) : NEXT S49 DATA7E99FE952994DD369929FE852944DD7E 
99 SPRITE$( 9 )=B$:SPRITE$( 1 ) =B$ S59 DATA29FE29299ADD77993E85DD77291833DD 
199 FOR I=9 TO 5:READ D$:FOR J=9 TO 7 S69 DATA7EFFFE29299DDDBE9 1 291BED5FE64928 
119 VPOKE 1152+Ix8+J,VAL("&H"+MID$(D$,JX2+ S79 DATA991813DD7E91FE2929183E29DD77993E 
1 ,2 ) ) S89 DATA85DD7791189C3E29DD77993E85DD77FF 
129 VPOKE 1499-Ix8+J,VAL("&H"+MID$(D$、JX2+ S99 DATADD2BDD2BDD7CFEEF29A52199F3ED5B7D 
1 2)) 699 DATAF396972B7EFE8529951313CDE9EA19F3 
139 NEXT:NEXT 619 DATA96972B7EFE85299413CDF7EA19F49696 
149 A=&HF999:B=&HAF 629 DATA2B19FD96962B7EFE8529961B1B1BCD9E 
159 FOR IlI=9 TO 767:POKE A+1I .32:NEXT 6309 DATAEB10F2ED537DF396969E992B7EFE8529 
169 FOR !I=9 TO 4:FOR J=2 TO 23 649 DATA919C19F779327CF321C9EA11E9F29129 
179 POKE A+Ix6+Jx32.B 659 DATA99EDB92199F9119918911999CD5C9092 1 
189 NEXT:NEXT 669 DATA29F9112918911999CD5C992149F91 149 
199 FOR Il=9 TO 4:FOR J=9 TO 24 679 DATA1891C992CD5C99AFCDD5992179F31172 
209 POKE A+Ix169+J+64.B 689 DATAF3916299EDB8ED5B12F3FE9 12898FE92 
219 NEXT:NEXT 699 DATA2894FE9829931D1D1DFE922898FE9328 
229 POKE A ・B:POKE A+24.B 799 DATA94FE942993141414FE942898FE952894 
239 POKE A+32.B:POKE Ar56,B 719 DATAFE9629931C1C1CFE962898FE972894FE 
249 FOR I=&HF319 TO &HF372:POKE 1,24:NEXT 729 DATA9829931515157BFEA938921EA9FE1839 
259 POKE &HF399 、&HAF:POKE &HF391.9 739 DATA921E187AFEB4389216B4FE9839921698 
269 POKE &HF392,8H9F:POKE &HF303.9 749 DATAED5319F37BB2435F3E94CD9399587B21 
279 VPOKE &H2912.8&HA9:VPOKE &H2915、8HA9 : VP 7S9 DATA991BCD4D99237ACD4D9923AFCD4D9923 
OKE &H2919.&8H79 769 DATA3E95CD4D99ED5B79F37B23CD4D997A23 


289 PLAY"F89094E16VT ひ CCFR32F32A95C2L3294A+R 779 DATACD4D993E9423CD4D99233E99CD4D99AF 
2A+RS2A+R32 も 上 605CCER32ES2FFFF、"T8903L16V 789 DATACDD899A72996AF327FF3183F3A7FF3A7 
7CCF FC2AAACCEEFFFF“ ふ "TFT8902V7LT6ECECECECGD 799 DATA29393C327FF3ED5B79F3CDA4EADDE5FD 


GDGDGDAFAFO3FFFF 899 DATAEIED5B19F3CDA4EACD25EB9E949695DD 
299 Z=USR(9 ) 819 DATA7E99FD5699FD7799DD7299DD23FD2319 
399 LOCATE 6.12:PRINT "xxx START ※xx" 829 DATAEE1 11B99DD19FD199D29E2E1ED5B7DF3 
319 LOCATE 25.9:PRINT "Score":LOCATE 25.1: 839 DATA722B73C9DD21BBEF7AD694919699DD99 
PRINT" に 949 DATAD63939FA7BD6149EA9DD99D62839FAC9 
329 IF PLAY(9)=-1 THEN 329 659 DATAAF4F56455229AF292D293329AF202039 
339 SOUND 19.8:SOUND 5.,9 869 DATA2929AF292B293129AF292B2932202920 
349 Z=USR(Z):LOCATE 25.1:PRINT Z 879 DATAD9AF1E9ACD93993E9 1 1E99CD93993E9C 
359 IF FNA=9 THEN 349 889 DATAIE18CD93991842D9AF1EC8CD93993E69 1 


369 PLAY " 生 29V9EL1605BAGEBAGFO5CPEFGABO6CC4 8399 DATAIE99CD93993E9C1E94CD9399182BD9AF 
112 人 人 V804C4E4G4O05C2 " 、 " 千 寺 2 ひ V7GSLT6CRTGCR+ 399 DATAIE64CD93993E911E92CD93993E9CIE20 
0CRT6CR16CCGR16C4 . " 319 DATACD93991814D9AF5FCD93993E911E95CD 
379 LOCATE 4.12:PRINT "xxx GAME OVER xxx" 929 DATA93993E9C1E32CD93993E931E99CD9399 
389 IF Z>H THEN LOCATE 8.14:PRINT "YOU ARE 339 DATAED5FC6895F3E92CD93991EF83E97CD93 
TOP ! 7:H=Z ELSE LOCATE 6.14:PRINT " HIGH 949 DATA993E981E19CD93993E991E19CD93993E 


SCORE" : 日 359 DATA9A1E98CD93993E9D1E99CD9399D9C999 
399 IF INKEY$ も > く <CHR$( 13 ) THEN 399 969 DATA39381C9F97999E37395E66791D9B9109 
499 CLS:GOTO 149 979 DATA99949C9C9CFC7CBCBC7CFCF8F8F9E995 
419 DATA23235E2356ED537DF3E5.)E853291 ド 92 1 389 DATADFDF99FDFDFD99DF ,D7DF99DDE8BD99DA 
420 DATAEBF2962936292319FBED5B99F321C9EF 999 DATA55DE99DD69BD995A .448A99D59989994A 
439 DATA7ZAE6933C9E969699993D29FC7AF69C9F 1999 DATA4482999i99819992.9999999999999990 

男 変 数 リス ト : 410-950 機械 語 デ ー タ テ 

スコ : 960-970 スプ ライ ィ ト ・ テ ーッ だ 

H…… バ イス コア : 980-1000 キャ ラフ タ ・ デ ー タ だ 守 

還 プ ロブ ラム の 説明 : 硬 チ エッ フ ボ イン ト ん 四 

10 一 30 初期 設定 : 全部 打ち 込ん だ ら マ シン 語 確 ” 人 パ 所 = 

40 一 60 機械 語 書き 込み ・ 認 。 restore 410:S ニ ー4501: ツ ET 

70- 90 スプ ライ ト 書 き 込 み : for =O to 56:read dQ$ : ク エエ エー 

100ー130 キヤ ラク フタ ジェ エネ レ fOP 0 も つ 5 ノ 's 三 SX OF vV 上 エ ィ 
ー マ ツー の 書き 込み : alIC&h" 十 mid$S(d$,J* イオ + 1 Pe 

140 一 230 画面 設定 : 4)next:nextprint s:end 3 

270 思 指 定 : 友 圭 ちこ みり マー シ ・ キ ー。 0 だ 

280 コー ジッ クジ ・ が 表示 され だ ら OK。 ぞ 


い 」 


290-400 メイ ン ル ー チ ン 


思 考 却 り 不 選 


QGQGQ 6 つ 
4 いつ 見 て も YUKIO の 作 つ だ ゲー ム 
は 、 作 者 の 性 格 が よく ぐ 出 て いる ね い 。 
明る ぐ く ヒネ ぐれ だ 性 格 が 。 


と wo 


RUN る せる と 、 ま ず DATA の チェ 
ッ ク サ ム が は じ ま る 。 や っ ぱり 、BAS 
1IC に マシ ン 語 を 呼び 出し て 走る ブロ グ 
ラム は 、 こ の 〈 く らい の 親 切 設 計 が ほし 
いも の (チェ ッ ク ポ イン ト 参 照 )。 

さて 、 チ ェ ッ クサ ム 用 の 行 を REM 文 
に 変え だ ら 、 今 度 こ を 本 当 に RUN 
TAP-TAP/" と いう タイ トル が 、 
欠け た り 、 消 を だり 、 ま た 測 た だ たり し な 
が ら 、 し ば らく じっと 黙っ て いる 。 こ 
れ は だ だ 、 マ シン 語 の 読み 込み に か が 
る 時 間 の 退屈 し の ぎ 。 ち ゃ ん と し た だ タ 


イ トル 画面 が 出 た ら 、 リー ジュ ギー . 
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| 5 何 と 込 打 
Y ャ グ で て こむ ち 
ん A | こ ろ わ 込 
N ム ん で け み 。l 
さ オ な MC ププ ョ 
ん | に に 知人 
サバ ず X な そ 
ン | し の い 2 1m 
ュ 音 ん し ん 易 
り 楽 で A ね え 
CE も y ぁ みる 上 
ざき て ( ャ ミレ し lm 
いく ずん ^ 
まれ あ れ は :, 四 
シ な 0 る ガ 叙 邊 
/ の ン ? l 
N 
K か 。 


アタ 


を だ だ いて ゲー ム ス タ ー ト / 

この ゲー ム も 、YUKI ウ 5 しく 、 ま 
っ だ 《 見 だ こと も な いよ うな ゲー ム 。 
画面 中 セク ルク ル 顔 を 変え ながら 飛 ぶ 
ボー ル を 、 画 面 の どこ か に ポコ ユ ッ と 現 
れる ゴー ル に 次 々 に 入れ て い 〈 く の だ 。 
ボー ル の 進行 方 向 を 変え る の は 、 ス ペ 
ー ス ・ キ ー。 押す た びに 、 あ ちこ ち に 
散ら ば っ て いる 終 め の 棒 が 90 度 (向き を 


変え る の だ 。 タ イミ ング だ け じ ゃ な く 、 


コー ス も 考え ん えん なく ちゃ も いけない 、 リ ア 
ル タ イ ム 思 考 型 ゲー ム な の だ 。 

ボー ル が 重なる と 
お も し ろ い こと ヵ 訪 
こる 。 画面 上 の 金 が 
SCORE、 TIME、 DE 


上 段 中 央 に 注目 。S 
す 〇 の ビ ひ っ つか か っ て 
ボー ル が ガ 眠 つちや ゃ つ だ 。 


中 央 付近 に ゴー ル が 
あつ だ 。 ま ず 、 1 個 取 
り い 。 ク の 個 目 が 難し い 。 


と 


多 グ 


人 aaaaaaooonnananonggoegoo 


、 BY 田楽 由紀 


ATH の と ころ を 少し ずつ 移動 し て いる 
けど 、 こ れ が 重要 。 ボ ー ル が 重なっ た 
と き 、 例 が SCORE の と ころ に あれ ば 
スコ ア が 増え 、TIME の と ころ に あれ 
ば タイ ム が 増え る 。 で も 、DEATH の 
と ころ だ と 1 回 アウ ト 。 10 回 アウ ト か 
TIME 0 で ゲー ム オ ー バ ー が だ ど 。 

2 面目 か ら は 枠 が 広がり 、 カ ー ソ ル 
・ キ ー で 画面 を スク ロー ル さ せな が ら 
や つの て いく 《 こ と に な る 。 SI0OP の と こ 
ろ で 止ま っ た ボー ル は 、 い っ た ん 画面 
の 外 に 出せ ば また 動き は じ め る よ 。 


19 CLEAR 199.&8HCFFF:SCREEN 1.2.9:WIDTH 39:KEY OFF 

29 DEFINT A-Z:DEFSNG PIDIM XX(64),Y(64):DEFUSR9=&HE999:DEFUSR1 =&HECS35 

39 DEFFNA(X。Y)=&HD999+YX64+X:DEFFNR(X)=INT(RND( 1)%X):Z=RND( -TIME/2 ) 

49 ON INTERVAL=199 GOSUB 529 

S9 RESTORE:FOR 1=9TO35:READ D$:S=9:FOR J=9TO16:S=S XOR VAL("&H"+MID も (CD$ ,J※4+ 
1.4)):NEXT:PRINT "[" jiPEEK(&HE6A4)x256+PEEK(&HE6A3)5 7"] --- の 5MID も ("NGOK "1 -2%※(5=9 
),2):NEXT:END 

69 RESTORE:A=&HE999:B=&HE999:C=&HD999:D=&HE889:E=&HE8909 

79 FOR 1=28 TO 31:SPRITE$(1)=STRING$(8.255)+STRING$(8.9)+STRING$( 8 255 ) :NEXT 

89 COLOR15.9.1:LOCATE 19.19:PRINT "TAP-TAPI"EFOR !I=9TO1999:NEXT 

99 FOR 1=9TO26:READ D$:FOR J=9TO31:POKE A+TX32+J。VAL("&H"+MID も (D$ も ,J%2+1 2) ) 

199 COLOR JMOD16:PUT SPRITE J\8,(88+(J\8)x16,78+(IMOD4 )X3※(1-(J\8MOD2 ) %2 ) ) , 1.J\8 
+28:NEXT : NEXT 

119 RESTORE 919:FOR 1I=9TO1:READ D$:FOR J=9TO3:FOR K=9TO7 

129 VPOKE &H399+Ix256+Jx64+K。VAL("&H"+MID も (D も ,Jx16+Kx2+1 。2) ) :NEXT:NEXT :NEXT 

139 FOR !I=9TO5:READ D$:FOR J=9TO31 

149 VPOKE &H3899+TX32+J,VAL("&H"+MID$(D$ も ,Jx2+1 。2) ) : NEXT : NEXT 

159 READ D$:FOR 1=9TO31:VPOKE &H2999+1,VAL("&H"+MID$(D$ も 。 エ +1 。1 ) )x16:NEXT 

169 FOR !=9TO10909:POKE B+I,32:NEXT 

179 FOR I=91T029:POKE B+T+33。ASC(MID も S("[ TIME ][ SCORE ][ DEATH  ]",T+1。1) ) : NE 
XT 

189 FOR 1=9TO031:POKE B+I+64.219:POKE B+1+736.219:NEXT 

199 FOR I=2TO23:POKE B+IX32.219:POKE B+IX32+31.219:NEXT 

299 CLS:LOCATE 7,.5:PRINT "T AP - TA P 1!VWELOCATE 3.23:PRINT "PUSH KEY'RET' TO S 
TART" 5:LOCATE 8.29:PRINT"HIGH SCORE"iHEFOR 1=9TO1:Z$=INKEY も や: 1 = エ 1+(Z$ も >"") :NEXT 

219 IF INKEY$ も > く CHR$(13) THEN 210 

229 G=9:P=9:Q=9:CLS:LOCATE 9.9:PRINT "SCORE 9 TIME 199" 

239 PLAY"T149V1305L8C.E16G4D.F16A4G16R16G8G16R16G8A4G4L12CEGCEGDFADFAB4A8.B1606C 
2"。"T149V19L402CGDAGECER2 . . BA03C2" 。"T149V1303L8CEG4CEGCEGCEGCEGL6CEGDFAB4A404C2 

249 FOR I=9T031:PUT SPRITE !I,。(9.299).9,IENEXT:G=G+1:LOCATE 11.19:PRINT "ROUND"iG 
259 FOR I=&HE899 TO &HE8C9:POKE 1,9:NEXT 

269 W=Gx4-1:1IF W>31 THEN W=31 

279 X=5+GX19:IF X>63 THEN X=63 

289 Y=Gx19:IF Y>62 THEN Y=62 

299 POKE &HE9A7,X-14:POKE &HE9B8 ,Y-9 

399 FOR I=CTOB:POKE 1,9:NEXT 

319 FOR 1=9TOX-1:POKE FNA(I,9)。2:POKE FNA(I,Y-1),2:X(I)= 9 NEXT 

329 FOR 1!=9TOY-1:POKE FNA(9,1),2:POKE FNA(X-1.1),2:Y(I)=9:NEXT 

339 S=FNR(X-2)+1:FOR 1=1TOY-2 

349 T=FNR(Y-2)+1:IF Y(T)>9 THEN 349 ELSE POKE FNA(S,T),1:X(S)=X(S)+1:Y(T)=Y(T)+1 
359 S=FNR(X-2)+1:IF X(S)>9 THEN 359 ELSE POKE FNA(S,T),1:X(S)=X(S)+1:Y(T)=Y(T)+1 
369 Z=USR(9 ) :NEXT 

379 FOR 1I=1TOX-2 

389 IF X(I)=9 THEN POKE -FNA( TI ,FNR(Y-2 )+1 ) , 1 

399 NEXT 

499 FOR !I=9TOW:J=I\4+(IMOD4 ) x8 


419 POKE E+JX4。1:POKE E+JX4+ 1 。FNR(X/2 )x2+2:POKE E+JX4+2.FNR( Y/2 ) 2+2:POKE E+Jx4+ 


3,FNR( 4 ) 

429 NEXT 

439 S=FNR(X-2)+1:T=FNR(Y-2)+1:IF PEEK(FNA(S,T) ) >9 THEN 439 ELSE POKE FNA(S,T ) ,3 
449 IF G>1 THEN FOR I=1TOGX2:S=FNR(X-2)+1:T=FNR(Y-2)+1:IF PEEK(FNA(S,T ) ) >9 THEN 
1=I-1:NEXT ELSE POKE FNA(S,T) ,4:NEXT 

459 T=199:T1=9:SPRITE ON:INTERVAL ON 

469 Z=USR(U\4):U=(U+5 )MOD64:LOCATE T1,1:PRINT CHR$(131)::IF Z=9 THEN 469 

479 IF Z=3 THEN 489 ELSE IF Z>199 THEN 539 ELSE 466 

489 INTERVAL OFF:P=P+199x2^(USR1(9)-1):LOCATE 5.9:PRINT P 


499 PLAY "T299V1405C8E16G16D8F16A1606C2" , "T299V1 405C16E8F16D16F8A1605E2" "T299V1 、 


405C16E16G8D16F16A805C2 

S599 Ww=W-USR1(9):IF W<9 THEN LOCATE 19,12:PRINT "BONUS" iTX3::P=P+TX3:LOCATE 5.9:PR 
INTP:GOTO 236 “ 

S19 IF PLAY(9) く 9 THEN 519 ELSEINTERVAL ON:GOTO. 469 ' 

S29 T=T-1:T1=(T1+1)MOD39:LOCATE 29,9:PRINT T:IF T=9 THEN 699 ELSE RETURN 

S39 INTERVAL OFF:ON T1\19 GOTO 559.,569 

S49 PLAY "T159V1505C8" :T=T+19:LOCATE 29.9:PRINTT:GOTO 5969 

S59 PLAY "T159V1506C8" :P=P+T\19:LOCATE 5,9:PRINTP:GOTO 599 

S69 PLAY "T159V14L1603BGBGAFAFPGEGEFDFDC2" ,"T159V1203L8BGAFGEFDC2 " , "T159V1206L16B 
GBGAPAFGEGEFDEFDC2" 

っ S79 Q=Q+1:LOCATE 5,19:PRINT "YOU FAILED" iQi "TIME" iMID も や S("。 S. "1-(Q>1 ) 2,2) 

S89 IF PLAY(9) く 9 THEN 589 ELSE IF Q=19 THEN 699 

S99 INTERVAL ON:GOTO 469 

699 LOCATE 19.12:PRINT "GAME OVER" 


9 


著 を へ ///7 人 人 


619 PLAY "T159L16V1204GO5D4C804A#805D2C4D8C804G4 ."。"T159L4R4R16S9M1599902D4GO1GO 
2GCG4 ." 。"T159V1206R16G8F8E8D8C805A#8A8G8F8E8C4D4." 
629 LOCATE 8.15:IF H<P THEN PRINT "YOU ARE TOP !"iH=P ELSE PRINT 
639 IF PLAY(9) く 9 THEN 639 ELSE FOR !I=9T03999:NEXT:GOTO 209 
649 DATA 2323ES57E328S5E8AF3287E83286E82199E91 199E4919994EDB93A83E8A7291A3A9AFA 
659 DATA 84E8CDD899A7281D2182E87EEE91773E913283E8CD9DEB189C3A84E8CDD899A7D9BB 
669 DATA 29933283E83A84E8CDD599A7F528923E9F5F3E9ACD93993A89E85F3A81E8AB974DF7 
679 DATA 5F3E94CD93991E993E95CD9399F1284EDD2189E8FE933894FE982993DD3591FE94D4 
689 DATA 912897FE953993DD3499FE943897FE973993DD3491FE963893DD3599DD7E99FE9D93 
699 DATA FF2993DD3499FE492993DD3599DD7E91FEFF2993DD3491FE492993DD3591DD2 1 1CBC 
799 DATA 61E4ED4B89E878414FCD61EB969A9E9F7EA7285CFE922826FE932832FE942849D28F 
719 DATA FE91294C3A82E8A7299ADD369969DD3621691898DD369168DD36296818323E791228 
729 DATA DD7799DD7791DD7729DD77211822DD369978DD369188DD362989DD362199181929F2 
739 DATA DD369953DD369154DD36294FDD36215923DD23DD239D2998112299DD191131993A63 
749 DATA 19198BDD2199E8FD2189E821991B9699D9DD7E99A7284DDD4691CB383842DD4EB197 
759 DATA 92CB39383BCD61EB7EA72834FE92281FFE93392AFE91202C3A82E8A73E932892357B 
769 DATA 3E91DDAE93DD7793CD77EB3E9118153E92DDAE93DD7793CD77EB3E92189618949E91 
779 DATA CD77EBAF98DD7E99A7CA4CEBDD7E92FD4691CB2999FE14D24CEBD95FD9FD469967E3 
DATA DD7E91CB2999FE1ED24CEB5FD97B979797C618CD4D9923D97BD9979797C698CDE7S3 
DATA 4D99233A85E85F98FE932998DD369999FD369793FE9329921E19FE9429921E144DD1 
DATA 987BCDE5EB23789E95FE9838949E92FE1938949E9AFE1838929E9D79CD4D9923996C 
DATA D998FE91CC93EBFE92CC98EB119499DD19D99478D9FE29C251EA2129E4112918DBC4 
DATA 91E992CD5C99E13A87E877C9D93ED1CD4D9923232323D998FE93D477EBAF98181B9E 
DATA C9F5D5692699292929292929581699191199D919D1F1C9DD7E93A72993DD35927473 
DATA 3D2993DD34913D2993DD34923D2993DD3591C921B9EB189A21C2EB189521D4EB712F 
DATA 1899F57E235E23CD93997EA729F6F1C9996491999819926C939999199C949D99D179 
DATA 99099996491939819926C939499199C969D9999999964919698199278939699199115 
DATA 9C199D99994FFDE5C5CD4D9996291699FD2199E8FD7E99A72819FD7E91DDBE9 19EFC 
DATA 2911FD7E92DDBE922999FD7E93DDBE93289114FD23FD23FD23FD2319D7C1FDE11728 
DATA 79FE14289F3A87E8A729997AA72895C6643287E8C92323E521991B919920CD4A17C7 
DATA 99FED1289C2323CD4A992B2BFE1929919C2323232319E7E171C9999999999999DB3A 
DATA E999F84C321F999797991F324CF899E9AA55AA55AA55AA55E9FFE95948464742E84C 
DATA 4247464859E9FFE997FF979A1262E24242E262129A97FF9799999990999999098E2A 
DATA 99939F1F3F39797F7F7939381C9F939999C9F9F8FC9C9EFEFE9E9C1C38F9C99981AS 
DATA 99939F1F3F33737F7F999193979F939999C9F9F8FCFCFEFEFEFEFCFCF8F9C099F194 
DATA 99939F1F3F3F7F7F7F7F3F3F1F9F939999C9F9F8FCFCFEFEFEFEFCFCF8F9C999DBDB 
DATA 99939F1F3F3F7F7F7F7F3F3F1F9F939999C9F9F8FCCCCEFEFE9989C9E9F9C99 り 8F29 
DATA 99939F1F3F39797F7F793F3F1F9F939999C9F9F8FPC9C9EFEFE9EFCFCF8F9C099BD42 
DATA 99939F1F3F3D737F7F7C3B371F9F939999C9F9F8FCBC8EFEFE3EDCECF8F9C9998342 
DATA FFFF55667777AA7DDDD5FFFFFFFFFFFF99999999999999999999909999999999955B9 


"HIGH SCORE" 5H 


還 変 数 リス ト 
ロ 067e( メー ヤジ 
O…… 失 敗 し た 数 


X…… ス クリ ー ン の 横 の 大 き さ 
Y…… ス リーン の 終 の 大 き さ 
NM:o7 ポ ーー 


ル の 数 


H…… ハ イス コア 
田 プ ログ ラム の 説明 


10 一 40 
50 

60 一 100 
110120 
130 一 140 
150 

160 一 190 


76 


初期 設定 
DATA 文 チエ ッ ツク 
機械 語 読み 込み 
キャ ヤラ ンタ 設定 
スプ ライ ト 設 定 
カラ フー 設定 
画面 づく ぐり 


: 200-210 
・ 220 
・ 230-290 
・ 300 
: 310-320 
・ 330-390 
・ 400-420 
・ 430 
: 440 
・ 450-470 
・ 480-510 
・520 
・ 530~-500 
・ 600-630 
・ 640-900 


・ 910~-920 
・ 930~-980 
・ 990 


ツイ トル 画面 

ゲー ム の 初期 化 
吾 面 の 初期 化 
画面 アー タフ リア 
か べ を つぐ る 
フリ ッ ツバ パー を 作る 
ボー ル を 作る 
ゴー ル を 作る 
スト ツバ パー を 作る 
メイ ン ル ー チ ン 
ゴー ル 処 理 

ダイ マー 
ボー ル の 衝突 
ワオ カテ リー 


支 機械 語 の 説明 

E900 て E944 主 に トリ ガー ポタ 
ン を 押し だ と き の 
処理 

Eg45~E9BD 方 向 キ ー の 娘 理 

E9BE<EA42 キヤ ラク 表示 

EA49 て EB46 スプ ライ ト の 動き 
と 表示 


・ EB93^EBE4 音 出し 
・ EC35-EC5A USR 1 
・ 支 USR 関 数 の 説明 


機械 語 プ ロブ ラム の ・ 


Pa 
セラン ダ デ ー ツ マダ 
ペン ライ ドジ デー タダ 
0 ラー ワー ジ 


USR0  E900-EC34 
@ ゲー ム へ の メイ ン お 動き 全て 


USR 1 EC35--EC5A 
@ ゴー ル に 入 つ だ ポー ル の 数 
が わか る 。 
田内 蔵 チ ェ エ ツ フ サム の 使い 亡 
| リスト の 50 行 に デー 部 分 の 
チエ ッ ツ グ サ ム が 入 つ て いま す 。 
すべ て 打ち こみ RUN さ せる こと 、 
行 番号 を 表示 し な が ら OKI! と 
表示 し て いき ます 。 も し 、NG 
が 出 だ ら その 行 が 間 違 つ て いる 


・ の で LIST に も ど し て 修正 し て 
・ ぐだ さい 。 す べ て OKI と な つた だ 


e ボー ル の 形 を パラ メー タ と ・ 
・ 打ち こん で リタ ー ン する だ け で 
e 帰 つて きだ 値 が は の 時 ゴー ・ 


し て 入れ る 。 


ル 


e100 以 上 は ボー ル が ぶつ か ・ 


うだ と き 


・ ら 、50 行 を 一 記 REM 文 に し て 


(リス ト の 空白 部 分 に REM と 


す )、RUN さ せ て ぐだ さい 。 
(エイ キチ ) 


8 個 も ノリ ッ パ ー が つい て いる / ク 


ホッ プ 


FOR MSX ⑭⑫⑪⑮ 


< 55 細 細 語 (回 世 列 [大 哲人 誠 ) 大 融 台 ( 認 ( 匠 宙 守 還 還 三 有 


意外 と ファ ン の 多い YUKI ツ 
冬 で す 。 冬 に は ディ ス 
プレ ー が うま く 動 か な い 
ん で す 。 そ ん な わけ で 、 
冬 は ディ スプ レー の 電源 
を 落と せま せん 。 冷え て 
また 動か な く な る か ら 。 
また 秋葉 原 の ジ ャ ンク 屋 
を あさ っ て 、 今度 は カラ ー の を 買っ て こ 
よう か な 。 

(編集 部 ニュ ー ス ・ ち な み に 第 5 号 の アン 
ケー ト を 見 る と 、 い ちば ん ファ ン の 多 か 
っ た の が YUKIO) 


大 紀 E55 5 人 5 3 [| 大) 還 譜 : 倒 | (9 GE 回 (83 科 守 ) 還 和 ) [5> 
( 還 ヨ 人 移 公 (人 綱 羽 還 記 光 回) 55 5 CS 5 思 5 人 拉 ) (em GS 還 > 


0 9 個 の ミニ フリ ッ 
ジー” パー が ムズ い 
YUKI ゆ が また 変 な ゲー ム を 作っ て 
くれ だ 。 上 か ら 、 色 と り ど り の “ け せ 
らん ば さる らん "(要する に 毛 玉 ) が 落ち 
て くる の で 、 面 画 下 に ズラ ッ と な らん 
だ 小 き な フリ ッ パ ー を 操作 し て 上 に 打 
ち 返 し 、 色 と あっ た 棚 に 入れ て や る の 
が ゲー ム の 目的 だ 。 

うま く 、 毛 玉 を 棚 に 入れ る と 、 ま た 
新しい 毛 玉 が 次 々 に 現れ る 。 は じ め は 
1 個 し か な いけ ど 、 そ の うち 2 個 に な 
り 、 3 個 に な り ・……… 2 うつ 、。 夫 ぞ ま し 
い (と っ て る 難し か っ だ の だ )。 

フリ ッ パ ー が まん た 珍妙 。 [人] か ら 避 ま 
で の 1 列 の キー に 、 小 さき なの が 1 つ 1 
つっ 対応 し て いる 9 フリ ッッ パー 方 式 ! 
し が も 、 だ な ん と 、 あ ん まり ただ だき すぎ 


で ww ww ws 


etw we we No 
さっ 2 の e 0 


we 


we 
に PR 


NewerY 
we 


we 
ゃ こ 


Cw 


We Nr wp 


w: 
Ys 
ャ y ゃ テ Pe Ra 
* い に 


wp 


『 っ 
りり 


4 や つこ と 入 つ だ 、 ホ ワイ ト の 棚 。 次 は 2 個 の も 玉 が 


と 


EN 


ar ia 


NM: 


ココ 
い 


せ 


OR 


WW We We We 


4 お あ だ つ 、 1 個 ミ ス 。 右 の 隅っこ | 
る と メ が 出 て 使用 不能 に な る お そろ し 
さ 。 は じ め て この ゲー ム に 立ち 向かっ 
だ キミ は 、 キ ー ボ ー ド の 前 で 途方 に 幕 
れる に 違い な い 。 私 が 保証 す る 。 


ゃ て で kk 宮 . 


を て を っ 


ご ボー ル を 入れ な いよ と >| キ ー で が ん ば れ 。 


し EE 天 】 
まう に 
し 天 式 玉 ま 玉 王 】 


に EE モモ EE 


572⑳7 ル / ガ ん ( / 


に 天 式 玉 玉 稀 ] 
に 


<  】 an ーッ 
革 、 ーー: つう 放 と の と 写 、 

し E 天 ] に 表 コ や EN あー で e ァ ーー と デデデ 
し Py デア トン に アーデ し コ - ・ マー Kg イー デイ 人 に wt 
ーー を シミ テー 

シュ る 可 の ー 
ー - き Fr SN 5 な す 

芝 と 2 \ 

EE デア ーー 天 ら の や テテ 


AIN 一 を だ だ こと 、N の フリ ッ パ ー が ご 
らん の と お り 、 プ ヨン と だ わ お の だ 。 


タン 


て くる ぞ 。 


いせ な "や リー す で st  ' 守 ゃ 


ちな み に 、 画 面 右 下 隅 に 行く と 1 回 


アツ トト に な り ま す 。 


ノー ミス で 成功 する と 、 ボ ー ナ スパ が 
も ら 人 る ぞ 。 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー テ OO 


// 


田 変 数 リス ト ・ 有 の …… 右端 に 行っ を ボー ル の ナン バー : 700 一 930 機械 語 デ ー タ ・ ら その 行 ガ 問 違 つて いる の で LIST に も 


AB…… ポ ボー ル の ワー フエ リア の アド レ ・ 一 プロ ブラム の 説明 ・ 940 カラ ー デ ー タ ・ ど し て 修正 し て ください 。 す べ て OK / 
記 ・ 10 一 30 ス フ リ ー ン 設定 、 変 数 定義 、 関 ・ 940 一 9 70 画面 デー タ ・ と な つ だ ら 、40 行 を 一 記 REM 文 に し て 

AR…… フ リッ パー の ワー クエ リア の ア ・ 数 定義 ・ 画 マシ ン 語 の 説明 ・ (リス ト の 空白 部 分 に REM と 打ち こん 
ドレ ス ・ 40 チェック サム ・ 石 C00ーEC41 メイ ン ル ー チ ン ・ で リタ ー ン する だ け で すう)、 民 UN させ て 

B…… 障 害 物 の 数 ・ 50-110 キャ ラフ タ 、 機 械 語 の 書き ご こみ ・ ご 42 王 CO4D ウエ イト ・ こ だ さ い 。 (エイ キチ ) 

E…… 得 点 の 倍率 ・120-160 ゲー ム の 初期 化 ・ 三 C つ 5BーEDDG ポー ル を 動 す 

F…… フ リッ パー の 残り 打数 ・170-220 メイ ン ル ー チ ン ・ DD フーEE4A フリ ッ バ パー を 動か * 

出 …… ル ルイ スコ ヨ ア ・ 230 一 260 ミス の 処理 す ・ 

し …… レ ベル ・270 一 360 ゲー ム オ ー バ ー ・EE4BーEEB 三 音 を 出す 

M…… ミ ス の 数 ・ 370 一 410 ボー ル の 入 つ だ と き の 劉 理 ・EEBF 一 ワー クエ リア 

N…… ボ ー ル の 数 ・420 一 470 ボー ナス ・ 画 内 惹 チ ェ ン フサ ム の 使い 5 

P…… フ リッ バー の 初期 の 打数 ・480 一 540 画面 作成 ・ この プロ グラ ム に は 、 内 蔵 チエ ッ フ サ * 

S…… ス コア ・550-580 ポー ル の 初期 化 ・ ム が あり ます 。 ・ 

TA.TB.TC.TN.TS.TX. エ イヤ …… ス プ ・ 590 フリ ッ パ バー の 初期 化 - リリ スト の 40 行 ガザ デー タ 部 分 の チエ ッ ツ ・ 
ライ ト 移動 用 ・600 スプ ライ ト の 移動 ・ サ ム に な っ つて いま す 。 す べ て 打ち こみ ・ 

W…… ウ エイ ト タ イ ム ・610 障害 物 の 位置 デー タ ・ UN させ る と 、 行 番号 を 表示 し な が ら 

Z…… 機 械 語 ル ー チ ン か ら の パラ メー タイ ・ 630 一 650 キヤ ラフ タデ ー タ ヤ ・ OK/ ・ 

Z 1 …… 右 端 に 行 つっ を ボー ル の 高 さ  ・660-690 スプ ライ ト デ ー タ ・ と 表示 し て いき ます 。 も し 、NG ガ が 出 た ・ 


19 CLEAR 399.&HEBFF:SCREEN 1.2.9:COLOR 15,12,1:WIDTH 32:KEY OFF 

29 DEFINT A-Y:DEFSNG Z:DEFSTR D:DEFUSR=&HEC99:DIM X(18),Y(18):Z=RND(-TIME/2 ) :H=9 
39 DEFFNM( 1 ) =VAL("&H"+MID も (D,IxJ+ 1 1) ):DEFFNR(T )=INT(RND(1)x1):DEFFNL(X,。Y)=-Xx(Y 
>(X-1 ) ) -YX(Y く <X) :DEFFNS( 1 ,J) =VPEEK(&H1B99+J+1 テ 4 ) 

49 RESTORE 629:FOR 1I=9TO32:READ D:S=9:FOR J=9TO16:S=S XOR FNM(4):NEXT:PRINT 

"[":PEEK(&HF6A3)+PEEK( &HF6A4)x256:"] --- "iMID$S( "OKNG" (5S=9 )\2+3,2):NEXT:END 

59 RESTORE 619:FOR I=9TO18:READ X(1I),Y(I):NEXT:LOCATE12.22:PRINT"HOF JOKER" 

69 FOR 1I=9TO 3:READ D:FOR J=9TO31:VPOKE &H399 +Ix32+J,FNM( 2):NEXT : NEXT 

79 FOR !I=9TO 3:READ D:FOR J=9TO31:VPOKE &H3899+IX32+J,FNM( 2 ) : NEXT : NEXT 

89 FOR I=9TO023:READ D:FOR J=9TO31: POKE &HEC99+Ix32+J,FNM( 2 ) : NEXT: NEXT 

99 READ D:FOR J=9TO31:VPOKE &H2099 +J。FNM(2) :NEXT 

199 FOR 1=9TO7:VPOKE &H159+ 1 ,VPEEK(&H378+1 ) :NEXT:AB=&HEEFD: AR=&HEEDS 

119 DB= "xx※"+STRING$(2.29)+CHR$ も (31 )+ リ ※※ り 

129 B=9:GOSUB 489:S=9: 上 し =1 

139 E=19:M=9:N=FNL(8 .L\3+1 ) : B=FNL( 25 、L\2) :P=FNL(159,Lx9):W=3999-Lx15S9:W=-WX(W29) 
149 GOSUB 59%:GOSUB 559:GOSUB 599 

159 PLAY "T154S9M899905L16CD8 .EFGABA8 .GF8 .GA8 .GFEDCD8 . ED8 .T159CDEFDEFGEFGAFPGAT15 
1 BDEFGEFT 159GAFGABO6C4 " , "T169V1202L4CECEDCECDEFGABO03C4 .","T169V1106L8CEG4CEG4CEG 
4CEG4CEG4CEG4CEG407C2" 

169 IF PLAY(9)<9 THEN 169 

179 LOCATE 8.7:PRINT "EE ] 

189 Z=USR(W) :Z1=Z\256:Z2=ZMOD8 :Z1=Z1-255x(Z1 く =9) :Z2=8-(Z2-8X(Z2 く =9) ):C=FNS(Z2 3 ) 
199 IF Z1< 49 THEN IF C= 9 THEN 379 ELSE Es=E-1:GOTO 179 

299 IF Z1< 89 THEN IF C=19 THEN 379 ELSE EsE-1:GOTO 179 

219 IF Z1<129 THEN IF C=15 THEN 379 ELSE E=E-1:GOTO 17@ 

229 IF Z1<169 THEN IF C= 5 THEN 379 ELSE E=E-1:GOTO 179 

239 PLAY "T299S9M6999L1604B6A#7A8G#9G19M3999F#FM2999ED#M1399DC#M8999C2”",。"T209V15 
L1605CEV1 4CEV13CEV12CEV1 1CEV19CEV9CEV8CECE " , "T299L16V1302CDECDECDECDECDEC" 

249 J=9:FOR 1=9TO8:J=J+PEEK(AR+Ix4+3):NEXT:IF J=9 THEN 27@ 

259 IF PLAY(9) く 9 THEN 259 

269 M=M+1:LOCATE 19,19:PRINTM: IF M<3 THEN 189 

279 PLAY "T299S9M7999L804CEDC .EG . 05C04AGE . CD .EEEG.FD.C2 . .","T299 V11L803CCEDEEEC 
EDEDDDCDEFEEDDCC" , "T29907V19L8CEDC . DD . EEEC. DD . CCCEEDDCCC“ 


7 ざ 


379 


369 
399 
499 
419 
429 


439 
449 
459 
469 
479 
480 
499 
S99 
S19 
っ 29 
S ら 3 
S49 
S59 
S69 
っ 7 
or】 / 
S99 
699 
619 


629 
639 
649 
659 
569 
679 
680 
699 
799 
719 
72 
7309 
749 
759 
769 
779 
789 


FOR I 
NEXT : 
FOR 1 
LOCAT 
IF H< 
TS=20 
FOR !I 
LOCAT 
IF IN 


=9TO7:IF FNS(I,9)<299 THEN J=I:C=FNS( 1 ,3) :X=FNS( 1 , 1 ) : Y=FNS( 1 ,9 ) 
TS=39:TN=J:iTX=X:TY=Y:TA=76:TB=124:TC=C:GOSUB 609 
=9T099STEP2:PUT SPRITE J,(76+1I,124) ,C, 1 

E 19+INT(I/8),16:PRINT MID$(" GAME OVER ",1+INT(I/8) , 1 ) : NEXT 

S THEN H=S ELSE 366 

・TN=J:TX=166:TY=124:TA=194:TB=98:TC=C:GOSUB 699 

=9TOS9 STEP 2:PUT SPRITE J,(198+1 ,98) ,C,1 

E 14+INT(I/8) ,13:PRINT MID$S(STR$(H) , 1+INT(1I/8) , 1 ) : NEXT 
KEY$=CHR$(13) THEN S=9: し =1:GOTO 139 ELSE 366 


PLAY "1T299S9M1M9999L1604GO5CEGCEGO6C1 " , "T299S9L1604EGO5CE04GO5CEG1 " , "T289S9L 
1604CEGO5CO04EGO5CE1 " 

F=9:FOR 1=9TO8:F=F+PEEK(AR+3+ 1 x4 ) : NEXT 

っ = ご +FXE/59:LOCATE 9.6:PRINT S:POKE AB+Z2x8.9:N=N- 1 


IF _N> 


9 THEN 189 ELSE IF E<19 THEN 479 


IF PLAY(9) く 9 THEN 419 
PLAY "T169S8M2999L405ABAEDEFDECDO4BO05C04BS9M5999A1" ,"T16903V11L4CDFADEFAFEDA 
CEV9A4"。"T16907V8L4ABAEDEFDECDO6BO07CO06BA4" 


TS=69 
FOR I 
LOCAT 
S=S+F 


・TN=Z2:TX=FNS(Z2。1):TY=FNS(Z2.9) :TA=28:TB=42:TC=FNS(Z2,3) :GOSUB 699 
= りす 0O90 STEP 23PUT SPREFTE Z2。(28+I ,42) WC。B 
E 4+INT(I/8),6:PRINT MID も ("BONUS "+STR$(F)+" "。TNT(T/8)+1 ,1):NEXT 


IF PLAY(9) く 9THEN 479 ELSE L=L+1:GOTO 139 


PRINT "%%"5STRING$S(255 ,42) jSTRING$(255, 42 ) :STRING$(255 , 42):j:VPOKE &HIAFF, 42 


FOR 1 


=1T022:LOCATE 1,I:PRINT MID$(SPACE$( 39 ) , 1 , 27- (1 MOD 5> く 9 ) x3) : : NEXT 


RESTORE 959 


READ 
FOR I 


1。J:IF I>9 THEN LOCATE I,J:READ D:PRINT D:GOTO 519 
=9TO18:LOCATE X(T),Y(I):PRINT "  "+STRING$ も (2.29)+CHR$(31)j"  ":NEXT 


IF B>9 THEN FOR I=1TOB:J=FNR( 19) :LOCATE X(J) ,Y(J):PRINT DB:NEXT 


LOCAT 
FOR !I 
POKE 
POKE 
NEXT : 
FOR 1I 


E 9,6:PRINT Si:" "iLOCATE 19,8:PRINT L:LOCATE 19,19:PRINT M:RETURN 
=9TO7:D= "59AF" :J=FNR( 4 ) 

AB  +!X8。-FNM(1)x(I<N) :POKE AB+1+Ix8、INT(RND( 1 ) x299)+29 
AB+3+IX8,19:POKE AB+4+Ix8,.255:POKE AB+6+Ix8,9:POKE AB+7+Ix8,9 
RETURN 

=9TO8:POKE AR+2+TIxX4、9:POKE AR+3+Ix4,P:NEXT : RETURN 


FOR !=9TOTS:PUT _SPRITE TN,(TX+IX(TA-TX)/TS,TY+Ix(TB-TY )/TS) , TC, 9: NEXT : RETURN 
DATA 1.4.1.18.3.8.3。14.5。、1.8。11.8.16.9,4.14.8,16.8.16,16.16,18、18。8,29,8,21 , 
ド O。 22 1 。22.3。23。15、26,9 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


JF7F7F7F3F999999FFFFFFFFFF999999FCFEFEFEFC9999993C7F7F7F3F9F9999929F 
り 9FFFFFFFFFF99993CFEFEFEFCF99999387F7F7F3F9F99999981FFFFFFFFFF99B981 
1] CFEFEFEFCF9999999387F7F7F3F9F99999981FFFFFFFFFF991CFEFEFEFCF9996969 
99993C7F7F7F3F97999999FFFFFFFFFF99993CFEFEFEFCE9B574669ACBBD5A8F99C4 
り 49A241BAF3FS5FAF1F6F174F151D929169A958D9FDFEFDFEFCFBF4F8DA4428499DCA 
9 り 19592352B3F4F3F1FBF4F1F5B2512919949B46CFAF5FAF8FAFDF3FCF4F9A9599734 
91949D2F3F4F175F9B5F279D169599999948A45AF8E2FCD9E8F2F854A849499946AA 
9A り 59F2F3FCFBF5F1F5FAF5F362D92994948A4DAF8F2FDF8FCF2FCD4AC4959891CE9 
23235E235613ED53FBEEE5215DEF115EEF91FF923629EDB9CD4EECAF32F9EECDA278 
SBECCD42ECCD5BECCD42ECCD5BECCD42ECCDD7ED3AF9EEA728E1E1772B3AFAEE6192 
77C92AFBEE119199A7ED5229FCC9219918115DEF919993CD5999C9DD21FDEE968232 
98CDA1IEC119899DD1919F6DD21FDEE213DEF9698DD7E93D6967723DD7E91D694F995 
7723EDSFE69C7723DD7E997723119899DD1919E9213DEF11991B912999CD5C99A368 
C9DD7E99A72995DD3693D7C9CDB7EDE5FDE13E2AFDBE99299EFDBE292999DD36A79F 
9491CD4BEE1811FDBE91299CFDBE212997CD4BEEDD3694FFDDCB967E2829FDBEEFFD 
99297DFDBE912978DD7E952F6FDD7E962F6723DD7595DD7496CD4BEE1862FDBE261A 
292997FDBE21299218DEFD7E29FE69384F6FFD7E21FE69384767FE6339177DFE1BA2 
633912DD7E97A728943DCD51EEDD7797CDA3ED182B7CFE6338297DFE633815DD3EEB 
7E973CFE9A38923E9ADD7797CDA3EDCD57EE189CDD3694FF18E5DD36949118DF586D 
DD7E94DD8691DD7791DD6E92DD6693DD5E95DD569619DD7592DD7493DD7E97A7C789 
<919DD6E り SDD669611289919DD7595DD7496DD7E91FEF9C9DDG6E9378E69767225849 
F9EEC9DD6E9711BFEE269929197EDD7795237EDD7796C9D5F5115DEFDD7E93E6D6C6 
F86F26992929191699DD7E91CB3FCB3FCB3F5F1 9F1D1C9FD21DEF1IDD21D5EE962356 
99CSCDFDEDC1 119499DD191BFD1919F121DEF111811A915B99CD5C99C9DD7E92774 ド 
A72919DDBE932817DD7E99CD4191DDA691299CDD3593DD3692941893DD3592DD49DA 
4692943E5D3C3C3C19FBFD77493CFD77413CFD7742DD7E93A729943F1C1898EG448 ビ 
F997979797C639FD7791C9E52174EE189AE5218DEF1894E521A6EFED5F556237E697D 
<3FEFF2992ED5F5F7ACD93997EA729EDF1D1E1C999F ド F ド 919992FF939194FF9502270F 
97F898199919@A199C939D り 999999991949299939494FF950497F8981099109A9EE6 
199C969D9999999A9192029B9392949C り 59297F8981999199A199C969D9990091AEO 
9949FE89FDC9FC99FC89FB99FB89FA99FA89F999F99589999F9520099F939199A2833 
9F9S98999F9289999F9498999F94904999F9204999 ド 9298999F5D92D1979 ド 9D091F ド 84 
TIAIECICBC9C9CFCFCFCEC7C9C1T111HH1ITHIIINItHI111110101THTITITIIIED40 
3。3。[[[ HOP JOKER_]]1],4.13。HIGH SCORE、2.21."2 X C V B N M < 
4.6.SCORE。5.8.LEVEIL.、6、19、MISS、8.16." 2 

2Z4.2。RED= >、23。17、BLUE=>、22、12、WHITE=>、21.7。YELLOW= > 。 9 。9 


ゆう 


メグ 


57 ルル // ガ ん / 


こり ゃ また 了 選 議 リ アル タイ ム ゲ ー ム で っ せ 
の 


FOR MSX (22K) 


クジ 


RUN す る と 1750 行 か ら 2200 行 まで の 
デー タ と 、2220 行 か ら 2510 行 まで の 歯 
車 デ ゲー タ の サム (合計 ) を と っ て 、 打 
ち 込 み ミ ス が な いか チェ ッ ク し て くれ 
ます 。 

も し NG が で た だ た ら 対 応 す る 行 を 直し 
しょ よう 。 

全部 0 K が で た だら 、80 行 、90 行 の 頭 
の 空白 に REM を いれ て か ら 、RUN し 
て も くだ きい 

な だ び な と ん に も て て こない し ゲ 
ー ム も 始ま ら な いっ て ? そ 一 な ん で 
す 。 それ で い 一 ん で す よ 。 実 は この ゲ 
ー ム は 初期 設定 に 6 分 半 ほ どか か る ん 
で す 。 ま あか 気長 に 待っ て くだ さい 。 


4 主人 公 ・ 


pt、 4 


で <ー ロ 


せ ア 中 いじ 


パン プ モ ドキ 


初期 設定 が な わる と グー ム が 始ま り 、 
左上 か ら 主 人 公 の パン プ モ ドキ が 出 て 
きま す 。 ゲ ー ム の 目的 は 、 こ の パン プ 

モドキ を 歯車 か ら 歯車 へ うま 動か し 

て 、 ト リア ン を よ け な が ら 、 画 面 右 は 

じ に 表示 きれ て いる BALL の 数 だ け エ 

必 靖 だ 2 きる こ と て す 。 

と に か く 〈 く 、YUKI ゆ ちゃ ん の ゲー ム ら 
し い 不 思 議 ゲー ム な の だ 。 な ん と いっ 
て も 、 バ ッ ク に 流れ る ラン ダム ・ メ ロ 
ディ に は いつ も な が ら 、 な に か の 予感 
が こめ ら 和 れれ で いる よう で 、 ちょ よっ と 、 
クッ シル ラル し て し まい まず 。 

ッ パ ンプ" モドキ は カー ソル キー で 上 下 
左右 に (な な め 方 向 も 可能 ) 移動 で き 
ます が 、 慣 れる まで な か な か 思っ た 方 
向 に 行く て こと が で き な い と 思い ます の 
で いみ いろ だ めし て みて くだ きい 。 まき 
た スペ ー ス キー を 押せ ば 歯車 の 回 転 の 


向き も 変え られ ます 。 

ここ まで 読む と パン プ グモ ドキ は た だ だ 
逃げ まわ る だ け の よう に 思う か も し れ 
ませ ん が 、 パ ンプ "モドキ は パワ ー エ サ 
を と る と し ば らく の 間 ス ー パ ー パ ンプ 
モドキ に な っ て トリ アン を や っ つけ る 
こと の 7Y きま すず す 。 だ だ し 。、 さ の と き 、 
エサ は 食べ られ ませ ん 。 

また 、SHIFT、GRAPH な どの キー 
を 押す と トリ アン を や っ つけ る こと の 
で きる ケム ( 煙 ) を だ すこ と が で きま す 。 
この よう か 方法 に よ り 同 じ 面 で 、 ト リ 
アン を 5 回 や っ つけ る と 、 ケ ム が 1 個 
な えん ます 。 

時 間 が た つ に つれ て 歯車 の スピ ー ド 
は どん どん 速く な り 、 パ ンプ モドキ を 
コン トロ ー ル する こと が 難し く な る の 
で な る べく 早く 面 ク リア し だ た ほう が 有 
利 で す よ 。 

得点 は 、 エ サ を 1 個 た べ る と 10 点 、 
パワ ー エ サ を た だ た べ で る と 100 点 、 ト リア ン 
を や っ つけ る と 500 点 で す 。 

5 回 トリ アン に つか まる と ゲー ム オ 
リプ レン イ は リターン キー。 き 
た ゲー ム 中 に CTRL+TSTOP を 押す と 
自動 約 に ゲー ム オ ー バ ー に な り ま す 。 
な お 、 面 は 5 種類 あり ます が 、 最 初 の 
面 以外 は ラン ダム に 選ば れ ま す 。 

や れ ば 、 わ か ' る お も し ろ る さる! 
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較 変 数 リス ト 
えー と ssssee 
田 プ ロブ ラム の 説明 


プ ログ ブラム マッ プ (マシ ン 語 部 ) 
わす れれ て も 一 だ 、 そ ぞう です 
田 ワ ー ク エリ ア (マシ ン 語 部 ) 

し ら な い お し レ し え ない か が だ ら な い 


の 
あと 


19 CLEAR 1999.&HBFFF 
29 SCREEN 1.2.9:KEY OFF:WIDTH 32:LOCATE ,,9:COLOR 15,9,1 
39 DEFINT A-Z:DEFSNG H,P,Q,S:Z=RND( - 1 23 ) 
49 DIM E$(5) ,X(99),Y(99) ,D(99) ,M(32,24 ) ,Z(15) 
S9 DEFUSR=&HD799 
69 DEFFNM(A)=VAL("&H"+MID$(D も ,BXA+ 1 .A) ) 
79 DEFFNS(A)=ASC(MID$(D$,A,1 ) ) 
89 REM FOR A=9 TO 42:READ D$:C=9:FOR B=9T032:C=C XOR FNM( 4 ) :NEXT:PRINT " [":PEEK 


(&HF6A3)+PEEK(&HF6A4 )x256j"] --- "iMID$( "NGOK" ,1-(C=5 )*2,2) :NEXT 

39 REM C=9:FOR A=9T0345:READ D$:FOR B=1TO04:C=C XOR FNS(B)xB:NEXT:NEXT:PRINT "GEA 
R DATA --- "iMID$( "NGOK" ,1-(C=9 ) x2,2) :END 

199 ON STOP GOSUB 1719 


119 ON INTERVAL=6 GOSUB 1729 

120 まま まま ま ハ クル マ サク セイ まま も ネネ も も ネ る ネネ ネネ る ネ 

139 SCREEN 2 

149 FOR A=9 TO 3:FOR B=256 TO 793 

159 POKE &HD999+&H899xA+B,PEEK( &H1BBF+B ) 

169 NEXT B,A 

179 FOR A=9 TO 1 

189 FOR B=9 TO 2:R=2^B 

199 FOR C=9 TO 3:P=-3.14/4/RxCx(A- .5)x2 

299 COLOR 7。1。1:CLS 

219 CIRCLE (Rx8-1,Rx8-1 ) ,Rx8-1.,7 

229 CIRCLE (Rx8-1,Rx8  ),Rx8-1.,7 

239 CIRCLE (Rx8  ,Rx8-1 ) ,Rx8-1.,7 

2Z49 CIRCLE (RxX8  。Rx8  ),Rx8-1,7:PAINT (Rx8,Rx8) ,7,7 
2S9 CIRCLE (Rx8  ,Rx8  ),Rx2,1:PAINT (Rx8,Rx8 ) , 1 , 1 


269 FOR D=9 TO 2xR-1:Q=3.14/RxD ' 4 得点 源 の エサ 
279 CIRCLE (Rx8+COS(P+Q)xRx4.5,Rx8+SIN(P+Q)xRx4.5) ,R/1 .2+2., 1 
289 NEXT D 


299 FOR D=9 TO Rx2-1:FOR E=9 TO Rx2-1:FOR F=9 TO 7 
399 IF VPEEK( &H2999+Dx256+Ex8+F)MOD16=7 THEN G=255 ELSE G=g 
319 POKE &HD2C9+CxX&H899+AXRxRx32+(RxR- 1 ) x64/3+DxRx16+Ex8+F,VPEEK(Dx256+ExX8+F) XO 
R G 

329 NEXT F,E,D,C,B,A 

339 SCREEN 1 

349 FOR A=9 TO 6143 

359 VPOKE A,PEEK(&HD999+A ) 

369 NEXT A 

379 FOR A=9 TO 2947 

389 VPOKE &H2899+A,PEEK( &HE899+A ) 

399 NEXT A 

4 りり ' ま まま まもる キ カイ コ ^~ カキ コミ ネ を ネネ を まま よ まあ も も ネネ そる 

419 RESTORE 

429 FOR A=9@ TO 28:READ D$:FOR B=9 TO 31: POKE &HD799+Ax32+B,FNM( 2) :NEXT B,A 
439 FOR A=9 TO 19:READ D$:FOR B=9 TO 31:VPOKE &H3899+Ax32+B,FNM(2):NEXT B,A 
449 FOR A=9 TO 1:READ D$:FOR B=9 TO 31:VPOKE 192  +Ax32+B,FNM( 2):NEXT B,A 
459 READ D$:FOR B=9 TO 31:VPOKE &H2999+ B,FNM( 2) :NEXT B 

469 FOR A=192 TO 255 

479 VPOKE A+&H2899 , -VPEEK(A)x(A\16> く <12) 

489 VPOKE A+&H1999,-VPEEK(A)x(A\16><13) 

499 VPOKE A+&H89g ,-VPEEK(A)x(A\16> く 14) 

599 VPOKE A ,-VPEEK(A)x(A\16> く 15) 

519 NEXT A 

520 「' ま まま まま キャ ラク タ サク セイ を まる まま よる よる まま る ネネ 

539 FOR A=9 TO 5:B=2^(A MOD 3):C=A\3 

549 FOR D=9 TO Bx2-1:FOR E=9 TO Bx2-1 

S59 E$(A) =E$(A)+CHR$(88+8x(BxB- 1 ) /3+CxBxBX4+E+DXBx2 ) 
569 NEXT ビ 

579 E$(A) =E$(A)+CHR$(31 )+STRING$(Bx2.,29 ) 

589 NEXT D,A 

599 E$(4)=LEFT$S(E$(4) ,39) :E$(5) =LEFT$(E$(5) 。126 ) 
699 まま る まま INITIALIZE 1 まる ネネ も も まあ あま ある を 

619 STOP ON 

629 し =9:S=9:M=9:POKE &HDA8E,3 4 トリ アン を ケム に まく ケム 

639 |' ま まま まま INITIALIZE 2 まる まま ネネ ああ あま ネネ まる 

649 L=L+1:L1=L1+1:T=5+Lx5:U=9:K=PEEK(&HDA8E) : IF T>39 THEN T=39 

659 CLS:PUT SPRITE 9,(9,298),15,9 

669 D$=CHR$( 31 )+STRING$(6,29 ) 

679 LOCATE 26, 4:PRINT "SCORE" :D$:S 

689 LOCATE 26, 6:PRINT "HI-SC":D$:H 

699 LOCATE 26, 9:PRINT "LEVEL" iD$:L 

799 LOCATE 26,11:PRINT "MISS ":D$:M 

719 LOCATE 26,13:PRINT "BALL ":D$:T アリ 0 リリー 2 
729 LOCATE 26,15:PRINT "KEMU ":D$:K 

739 「' ま まま まま 力 ^ メ ン ツ ^ ク リネ る を まあ ああ よ ネネ ああ ネネ ネネ 

749 ERASE M:DIM M(32。24) 

759 RESTORE 2239 

769 READ D$:IF VAL(D$)= し 1 THEN 789 ELSE IF D$="1111" THEN Ll=1:GOTO 759 
779 READ D$:IF D$><"9999" THEN 779 ELSE 769 

789 N=9:B=3:READ D$ 

799 X(N)=FNS( 1 ) - 63:Y(N) =FNS( 2 ) - 63 :Z=FNS( 3 ) -48:D(N)=FNM( 1 ) 

899 IF Z<6 THEN 869 

819 VPOKE &H1899+X(N)+Y(N)x32,12+Zx2 

829 VPOKE &H1899+X(N)+1-Z MOD 2+(Y(N)+Z MOD 2)x32,13+Z2 

839 X(N)=X(N)-(Z=7)+(Z=9):Y(N) =Y(N)+(Z=6)-(Z=8) 

849 D(N)=D(N)-1:IF D(N)>9 THEN 819 

859 GOTO 959 


チラ 7 ル // ガ ん / 


869 R=2^(Z MOD 3) 

879 LOCATE X(N)-R,Y(N)-R:PRINT E$(Z): 

889 IF Z=4 THEN VPOKE &H1821+X(N)+Y(N)\32、127 

899 M(X(N) ,Y(N) ) =N+ 1 

999 POKE &HDD99+Nx8  ,X(N)x8-8 

919 POKE &HDD99+NX8+1 ,Y(N)x8-8 

929 POKE &HDD99+Nx8+2.3-(Z MOD 3) 

939 POKE &HDD99+Nx8+3,(261-R+(R=2)+(5-R+(R=2) )※2%( の >2 ) )MOD2S56 
949 N=N+1 

959 READ D$:IF D$> く "9999" THEN 799 

969 FOR A=9 TO N-1:FOR B=9 TO 3 

979 IF (D(A)AND( 2^B) ) =9 THEN POKE &HDD94+AX8+B,255:GOTO 1939 
989 X=X(A):Y=Y(A) 

999 X=X-(B=1 )+(B=3):Y=Y+(B=9)-(B=2) 


1999 IF X<9 OR X>31 OR Y<9 OR Y>23 THEN PRINT "Error.":END 4 大 歯車 。 す べ て の キヤ ラク は 歯車 
1919 IF M(X,Y)=9 THEN 999 記 
1929 POKE &HDD94+Ax8+B,M(X,Y)-1 の ふち を フル フル まわ つて いく ぐ の だ 。 


1939 NEXT B,A 

1949 INTERVAL ON 

1959 PLAY"T169L1605","T169L1603" 。"T169L1605“" 

1969 PLAY"V12C8.EV11F2.V12C8.EV1 1G2 . V12C8 .EV1 1G#R16G#8 .R16G#8V13A#4G406C4R4C1P,「 
V19E8 .GV13D2 .V19E8 .GV13F2 .V19E8 .GV13FR16F8 .R16F8V12E4G404C4R403G1" ,"V19G8 .CR2.G8 
.CR2 .G8 .CR16R16D8 .R16V11E8V12G4V13E4V1 4G4V12EFGAG1" 

1979 IF PLAY(9)<9 THEN 1979 

1989 "まま まま ス フ " ライ ト セッ テイ ネネ も も も ネネ も キキ 

1999 D$="133"+MID$ も ("222222222222444444444444"。-(12- し )※(L く 13)+1 13) 

1199 FOR B=9 TO 15 

1119 Z(B)=FNM( 1 ) 

1129 POKE &HDC99+Bx8  ,Z(B) 

1139 POKE &HDC99+BX8+1 。-(B=9 ) 


1149 POKE &HDC99+Bx8+2.,9 マ 中 歯車 と 小 歯 車 。 う まく 乗り ガ え て 、 
1159 POKE &HDC99+Bx8+5,-(B=9 ) エサ と 同じ 軌道 に 移っ て いこ う 。 


1169 POKE &HDC99+BX8+6.9 

1179 POKE &HDC99+Bx8+7 ,VAL(MID$("99163236" 、PEEK( &HDC99+BX8 )\2-1。2) ) 
1189 NEXT 

1199 POKE &HDA8A,9 

1299 POKE &HDA8B,9 

1219 INTERVAL OFF 

1220 ' まま も ま も メ イン まま も すもも ネ ネネ ネネ ネネ ネト ネネ も キネ 

1239 Z=255:GOTO 1259 

1249 Z=Z(INT(RND( 1 )x16) ) 

1259 ON USR(Z)+1 GOTO 1249,1279,1349,1369,1599,1469 

1269 まま まま も ホー ルキ も よる よ よ を も も も よ よ も よ も ネネ も よる キ 

1279 S=S+ 19:LOCATE 25,.5:PRINT S 

1289 T=T- 1:LOCATE 25,.14:PRINT T 

1299 K=PEEK(&HDA8E) :LOCATE 25,16:PRINT K 

1399 IF T>9 THEN 1240 

1319 PLAY "T299V13L1605CCEEFFECGGFECCCCEEFFGGEEDDDDDDDD CCEEFFECGGFECCCCGGFFEEDD 
C2",。"T299V13L1603CCCCEEGGFFFFGGGGDDGGCCCCDDEEGGAA DDEEDDEEBBBBAAGGGGFFEEDDC2" 。"T 
299V12L1605EECCDDCEEEDCEEGGCCDDCCGGBBFFBBBB EEGGGGCGEEDCAAAAEEBBGGFFO6C2『 

1329 GOTO 649 

1339 ' ま まま まま POWER ESA を も ネネ ネ も ネ も ネ すもも も も キ 

1349 S=S+199:LOCATE 25.5:PRINT S:GOTO 1249 

13509 まま まま ま CATCH を キネ ネネ ネネ も ネネ ネト ネネ キネ トキ 

1369 PLAY "T299V13L1605CEGCEGCCEEGGCCEEGGO6CCCCCCCC" , "T299V11L1603GCEGCEGGCCEEGG 
CCEECDEDCCCC" , "T299V12L1605EGO6C05EGO6C05EEGGO06CCO5EEGGO6CCEDEDEEEE 

1379 S=S+599:LOCATE 25,.5:PRINT S 

1389 IF PLAY(9)<9 THEN 1389 

1399 U=U+1:IF U<5 THEN 1449 

1499 U=9:K=K+1:POKE &HDA8E,K 

1419 LOCATE 25.16:PRINT K 

1429 PLAY "T159V15L1604CGO5CGO6C4" , "T159V1503L16EAEAEEEE" , "T159V15L1605ECA06EGGG 
6 

1439 IF PLAY(9)<9 THEN 1439 

1449 GOTO 1249 

1459 まま まま ま MEMU を ネネ ネネ ネネ も も ネネ ネネ キネ キキ も キキ 

1469 K=PEEK( &HDA8E ) 

1479 LOCATE 25,16:PRINT_K 

1489 GOTO 1249 

1490 まま まま MISS ネネ ネネ キネ ネネ よる も まま まま まま 

1599 PLAY "T299V13L1605CCCCAAAABGDFCCCC04CCCCCCCCGGGG06CCCC" ,"T299V12L1603CEAACD 
EEDEFBGGCCGGEEEEEE " , "T299V12L1605GGEEEECCFEFDEEDDGFEDCCCCR16R16R16R16EEEE" 

1519 PLAY "T299V13L1605CCCCAAAABGDFCCCCO04CCCCCCCCGGGG06CCCC" ,"T299V12L1603CEAACD 
EEDEFBGGCCGGEEEEEE " , "T299V12L1605GGEEEECCFEFDEEDDGFEDCCCCR16R16R16R16EEEE" 

1529 M=M+1:LOCATE 25.12:PRINT _M 

1539 IF PLAY(9)<9 THEN 1539 

1549 『 

1559 IF M<5 THEN 1999 

1569 まま まぁ * ま GAME OVER も ネネ ネネ ネネ ネ キキ も 

1579 PLAY"T299V12L805DDFEEGFFEDDDEDEFEFGFGAAAA#A#GEEEAAFDDD04AAAO5EEEDDDDDD" 12 
99V14L803DDDFFFDFGAAAA##tA#GEEA#AADFFA04DDD03AAADDDFFFDDFAAA#04DO3AFDDD" ,"T209V12L 
805FFDGGEDDCFFFCO04BO5CDCDEDEFFFDDEAACFFAFFFDFDAFAOSFFFFFF" 

1589 FOR A=19 TO 14:LOCATE 4.A:PRINT SPC(29):NEXT 

1599 LOCATE 9,.11:PRINT "GAME OVER" 

1699 LOCATE 7,.13:PRINT USING"SCORE 音韻 半 提 半音" 55 

1619 IF S<=H THEN 1669 

1629 H=S 

1639 PLAY “"T159V15L1605" ,"T159V14L1604" 。"T159V14L1604" 

1649 PLAY "C8.EG2AEGAEGAEGAEGAGB8AGA8GEC04BO5CDEDEFEFGFGAGABABABO6C2" "EE8.GC4 . .R 
16DD4R16EE4R8DDDR8G8R16CR16GR16EER16CR16CR16CR16CR16ER16DDR16CR16 _G2 ",。"C8.EG4 . 
.R16BB4R16AA4R8FFFR8E8R16ER16GR16CCR16ER16GR16ER16ER16GR16FFR16ER16G2" 


フン 


1659 
1669 
1679 
1689 
1699 
1709 
1719 
1729 
1739 
1749 
1759 
1769 
1779 
1789 
1799 
1809 
1819 
1829 
1839 
1849 
1859 
1869 
1879 
1889 
1899 
1999 
1919 
1929 
1939 
1949 
1959 
1969 
1979 
1989 
1999 
2999 
2919 
2929 
2939 
2949 
2959 
2969 
2979 
2989 
2999 
2199 
2119 
2129 
2139 
2149 
2159 
2169 
2179 
2189 
2199 
2299 
2219 
2229 
2239 
2249 
2259 
2269 
2279 
2289 
2299 
2399 
2319 
2329 
2339 
2349 
2359 
2369 
2379 
2389 
2399 
2499 
2419 
2429 
2439 
2449 
2459 
2469 
2479 
2489 
2499 
2599 
2519 
2529 


LOCATE 4.11:PRINT " THE GREATEST SCORE " 

PUT SPRITE 9,(9.298),15.9 

INTERVAL ON 

IF INKEY$>"" THEN 1669 

IF INKEY$=CHR$(13) THEN INTERVAL OFF:GOTO 619 ELSE 1699 
"まま まま も ワリ コミ トキ す も も も よ よ も も キキ も よ す よる よ 


STOP 


OFF:RETURN 1579 


1=lI+1:IF 1=3 THEN 1=5 ELSE IF 1I=6 THEN I=9 
VDP( 4 ) =! 

RETURN 

"も も まま も M-DATA ネ すもも よ も よ す よる まま まま まま りり 9A 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


2323E53EFFBED92999919929ED438CDA182DD93A8BDAE69329257EA7282121997356 
DC1198999619BE291323CB462B299D233691233699232323369918931919E7A774C4 
2A8CDA119199ED52ED522897228CDAED5229FCDD2199DC2196DAD9AF3288DA21D5FB 
89DA7EA7299DAFCDD899A7289F7723AE771899AFCDD899A7299236999619C5FD4D6B 
2199DDDD6E952699292929EBFD19DD7E91A7CA71D9DD7E9247E697295C789F9FEBC5 
9F47C69432A9D7FD7E994F3C284BDD7E993D28953D281C1822AFC5CDD599C1261252 
り 996F117FDA1956583E449719FD43A228191826ED5FE6292898181EED5FE61F28E46E 
18FD2199DD269969292929EBFD19DD7195DD7E92EE19DD7792218ADADD7E92FDDBD8 
8693CB462896FD9693FD9693E61FDD77921155DA2699DD6E921946DD7E92C6186638 
E61F6F2699194EFD7E92CB29CB21CB28CB293D29F978FD86994779FD86914FDD3967 
7993DD7194DD7E993D287E2193DCDD7E9396C693FE98D29CD923DD7E9496C693655D 
FE98D29CD92323DD7E99FE922896FE932828183BDD7E97FE18D238D97EA728121CD9 
2199992296DCDD3697183E933288DAC338D93E943288DAC338D9CD13DADD3691DC18 
992189982296DC3E923288DAC338D93A96DCA7C238D92188DA7EA7C238D9369125D9 
DD369199CD9EDA186F3E92DD5E93CD9399DD7E94C6495F3E94CD9399CD18DA3E521F 
96CD41913C2851218EDA7EA7284A237EA729452B3523361EDD7E932377DD7E94E73E 
2377CD1DDA3E953288DA182CDD7E99FE922925DD7E97FE18391E3A8FDAA7281823DC 
2ZA99DA7DDD9693C691FE93399B7CDD9694C691FE93DA86D8DD7E97FE18299E47B644 
EDSFE61F782996DD36971C1828FE1C291247ED5FE61F78299ADD369199DD3697995D 
19189EFE18399E3E94DDAE97DD77971894DD3694D1D9DD7E947723DD7E93772368A9 
DD7E977723D99F9F16995F2175DA197ED97723D9119899DD19C195C27ED721967BF3 
DC7EA7289D35299A2336993E981E99CD9399D91192DA218FDA7EA7281F352811CE84 
EB13131A771B231A7723362823369F189E3A96DCA72895D5CD13DAD1EB36D12146E3 
92DA11991B914499CD5C99218ADA3A8BDA3CCB4628923D3DE693328BDA29923EA924 
963D479E94CD4799E13A88DA77C9212CDA189D2137DA18982142DA1893214BDA76B1 
7E235E23CD93997EA729F5C99932919198199C949D9999995A919998199C929DFF2B 
9E999391959999989A98999999919598199C969D9999969C12161A1D1F291F1D8633 
1A16129C9699FAF4EEEAE6E3E1E9E1E3E6EAEEF4FA9F9F9F999393929C9D9A999DF6 
り 1939296949C98999999999999999999999999999999999999999999999999999F90 


"まま まま ま SーDATA ま まま すもも すす すす も ネネ 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


り 71F3F7B75FFCF838989894949291897E9F8FCDEAEFFF3C191919192929418E98199 
971F3F7B75FFFFFFE7C1C96969381F97E9F8FCDEAEFFFFFFE7839396961CF8E9BDA5 
971F3F7B75FFCFD3B2B2AA4744241C97E9F8FCDEAEFFF3CB4D4D55E2222438E981E7 
971F3F7B75FFC7838989894748391C97E9F8FCDEAEFFE3C1919191E2129C38E9A5FF 
り 1939397979F9F981D1F1A323F3F1F9989C9C9E9E9F9F919B8F8584CFCFCF8999999 
99999999939F1F387D7FFFF2E2FF7F3F99999999C9F9F81CBEFEFF4F47FFFEFCC324 
999991929498991612292F5C4949291F99998949291999684894F43A929294F8DBC3 
990999099999999697181C232528221F9999999999999969C99828489C9464F89CD6 
3F696F6F6C6D6D6D6C6D6D6D6F6F693FFC9EE6F636B6B6B636F6E68686869EFC9DAD 
999993979E1F3C3F3E3F1A9F979399999999C9A919F894AC1 4EC98D9E9C999993A1C 
9C3E619BB4A1CC59366AD5DDABC36F3479CCB4184CAEAB4D5589B6E82858B8E962FA 
に ベス スニ ニニ ここ ニン ニン スマ? 


"まま まま ま CHARACTER 


DATA 
DATA 


り 9193979F9393939389C9E9F9C9C9C9C999999999989CFEFFFFFE9C98999999996339 
939393 り 39F979391C9C9C9C9F9E9C9899999999919397FFFFF7F39 19999999999CC6 
トス ニニ ここ ここ ニニン ペン ニニ ニン ズン ニン う 


"生ま まま ま COLOR 


DATA 


9999A9A92929B9B9F9F9F949C9C9C9C9696969696969696969696969696969693989 


"まま まま ま ハ クル マ テーー タ ネネ よる も よ よ もみ も も よ も ネネ 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


り 993,]T98,AL91 ,ZT48.VT19.VQ35 , VO09D , VM35 , VK95 , VI3D,VF1D,SF32 ,ST3A 
QT9B,QOSF,.0T3A,LT1A,IT33.IR9D,GR3A,DR1B,AJ35,AH95 , AF36 ,FF2F,FA34 
FK3B, HK98 , DK96 , DN45 , AP94 , AR37 , AT91 ,1046,LO09A,MI 43,QI1C,VC3C,TC9B 
TA34 ,RC3A,0C16 ,O0F39 ,MF9E,KF3B, KD95 , KB34 , TH92 ,9999 
9992,]T98.BA94,[T38,YT98、WT31 ,WR95 ,WH34 ,WJ95 , WML35 , WMN95 , WP3D,UP9A 
SP3F , SS19 ,PR92 ,MS1 1 ,MP3F , N072 ,QP9 2 , SN95 , SK4D ,MK2E,KP9A,HP47,HT19 
ET3A,BT13,BQ37 , DQ99 , DO03D , B097 、 BM36 , DM9E , FM3A , HMD ,HK37 ,HI9D,HG35 
E14A,BI93,BG35 , BE95 , BC37 , EC1A ,HC3D ,HA94 ,HE97 ,KE4A,OE1A,SE4D, SH95 
SB96 , UB3A , WB9C, VC8 1 , WE9C,UD91 ,VF81 ,9999 

9994,]T98,AB36 , [T38 ,YT98 ,WT39,UT9B,ST3B ,QT9B,0T3B,MS91 ,LT39 ,KR64 
り 591 , IT99,GT3B,ET9B、CT3B ,AT93,AR37 , AP97 , @N63 , AK31 ,@I63,AF33,AD97 
CB9E,EB3E,GBOE, IB3E, JA7 1 ,LB36 , KC84 ,MA71 ,.0B96 ,QB3E, SB9E,UB3E,WB9C 
WD3D,WF9D,VG83,WK34 ,VL83,WP3C,WR9D,UR3F , SR9F , QR3F , 0R97 , IR3D, GR9F 
ER3F ,CR9F ,CP3E ,CF9B , CD3F , ED9F , GD3F , ID9D , 0D37 ,QD9F , SD3F , UD9F ,UF3B 
UP9E,SP3E,QP9E,OP36 , IP9C,GP3E,EP9E,EF3B , GF9B, IF39 ,0F93 ,QF3B , SF9B 
LK2A,PJ76 ,GJ96 , 9999 
9995,]T98,KF38.ZT48,VT19,VQ35 , VO9D,TO32 ,VL4D,SL9B,RJ62,SG1A,PG3E 
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IM 2 ん な 


m 昌 訪 張 すれ ば みな お な じ た いな も の で 、 フツ ョ ント し て の MSX 
の は どこ の メー カー の も の で も 違い は な 
MSX は いろ ん な メー カー が から 出 て い し や すか っ た だり …… 買う 人 の 趣味 や 目 。 い の だ 。 


る けど 、 い っ だ た いな に が 違っ て な に が 的 に あわ せ て いろ いろ 選べ る よう に は イン タフ ェ ー ス や オプ ショ ン を つけ 
な じ な ん だ ろう 。 な っ て いる 。 で も 、 自 信 も も っ て いえ 。 て いけ ば 、 お な じ も の に な る は ず 。 い 

だ と えば 、 パ イオ ニア が から 出 て いる る こと は ば 、 ろ ん な オォ オプション (別売 り の 部 品 ) を 
MSX は レー ザー ディ スク を 使い や すい MSX は みな お な じ / つなげ て いく こと を 「 朱 張 」 と いう け 
よう に な っ て いた だ た り 。 マハ か ら 旧 て と いう こと 。 各 機種 の 性 能 の 違い は 、 れ ど 、MSX は 拡張 し て いけ ば 、 み な お 


いる MSX は シン セ サ イ ザー と し て 利用 。 いっ て みれ ば 、 ア クセ サリ ー の 違い み な じ 機 械 に な る の だ ( 図 -1 参 照 )。 


@ 思 -1 MSX は どん どん 拡張 で きる じ S- フ 2 て 遇 ぐし わ 
ベ こ ②③ - ノ フェー マメ 


ず ! の 電 天 par 人 みっ 


- ト ! の - マ アア < 
べく こ 9 つ 。 
22 る ) と ン 垂 
そっ! きか 
回 


ー Rou 32EB リン! の 和 
と アツ ルディ k4W ぐ に EB て @ の 人 ( 


フタ 


ーー わか グ や ヲリ ンコ ン ル 7 ら X 


MSX は マイ クロ ソフ ト 社 と いう と こ 
ろ で 設計 ・ 開 発 き され だ た パソコ ユン だ 。 も 
ちろ ん 、 知 っ て いる 読者 も 多い だ ろう 
けど 、 マ イク ロン ソフ ト 社 と は 世界 で も 
っ と も 有名 な ソフ ト 会 社 な の だ 。 

MSX は 、 ビ ジネス 分 野 や 専門 的 な 分 
野 の も の で は な く 〈 く 、 家 庭 で みん な が 使 
える よう な パソ コン を 目指 し て いる 。 
だ か ら 、 だ れ も が 使え る よう な 、 わ か 
りや すい パソ コン に 仕立 て あげ られ て 
いる の が だ 。 

わか りや すい パソ コン っ て いっ だい 
どう いう こと だ ろう 。 それ は MISX の 
特徴 を 考え て みれ ば いい 。 

MSX は 、CPUC じ パソ ユン の 中 心 部 と 
な る LSI) や メモ リ (記憶 装置 )、 イ ンタ 
フェ ー ス じじ パ ソコ ン と 外部 の 機械 を つ 


な で た め の 装 置 ) な ど 、 パ ッ ソコン の 基 
本 的 な 設計 を な お なじ に し て 、 共 通 の ソ 
フト が 使え る よう に な っ て いる は か ^、 
次 の よう な 特徴 が ある 。 

1. ROM カ ー ト リッ ジ が 使え る 

2. 50 音 順 配 列 キ ー ボ ー ド が 多い 

3. ジョ イス ティ ッ ク が 使え る 

4. 家庭 用 TV に つなげ られ る 

1 の ROM カ ー ト リッ ジ は 、 も うず い 
ぶん キミ の 役に立っ て いる と 思う 。 な 
に し ろ 、 カ セッ ト 、 ポ ン で 手軽 に ゲー 
ム な ど が 楽し め る の で 、 ほ ん と に だ れ 
も が パ ツ コ ヨン を あつ か える わけ だ 。 

2 の 50 音 順 配 列 キ ー ボ ー ド は 、 全 部 
の MSX が そう だ と いう の で は な いし 、 
JIS 配 列 の キー ボー ド の MSX だ っ て あ 
る 。 上 級 者 向け の ほとん ど は JIS 配 列 だ 


けれ ど 、 は じ め て の 人 で も 安心 し て キ 


ー ボ ー ド に さわ れる よう に 、 カ ナ が ア . 


イ ウ エ オ 順に な っ た キー ボー ド も 多い 


の が MSX の 特徴 な の だ 。 


3 の ジョ イス ティ イッ ク に つい て も 、 
は ば はじめ て パソ コン に きわ る 人 に と っ て 
は あり が だ た いも の 。 な か に は 、 キ ー ボ 


ー ド に ジョ イス ティ イッ ク が うめ こま れ 


だ よう に な っ て いる も の も ある 。IMSX 
に と っ て は ジョ イス ティ ッ ク も か か せ 
な い 有 要素 だ 。 

4 の 家庭 用 TV と の 接続 $、 家 庭 で 


使わ れる パソ コン と し て は 当然 の 配 虐 
だ ろう 。 し か も 、 専 用 ディ スプ レイ を 
か わ ず に すめ ば 、MSX を 使う た め の 予 
算 が 少な て て すむ 。 


MSX の ユー ザー が 最近 急 に ふえ て き 


だ の も 、MSX が こん な ふう に 、 家 庭 で 
だ れ も が 使え る ろ る パソ コン を 目指 し て い 


る か ら だ ろう 。 


ーー フロ グラ ム を ちこ ご き の 注意 


MSX は 使い や すい の と 同時 に 、 価 格 
が ひく いと いう 特徴 が ある 。 も っ と も 
や すい MSX は 定価 で 29, 800 円 、 高 いも 
の で も せい ぜ い 10 万 円 くら いで すむ 。 
家庭 用 TV と オー デイ オカ セッ ト デ ッ 
キ さ る さえ あれ ば 、 こ れ だ け で ふつ うに パ 


ソコ ン が 楽し め る 。 

グセ サリ サー" が とれ だ けつ いて い 
る か に よっ て 値段 が 違っ て くる わけ だ 
けど 、 そ れ は 雑誌 な ど に の っ て いる プ 
ログ ラム を 打ち こん で 楽し むか ぶん に は 
だ た いし た 間 題 じゃ な い 。 


各 MSX の メモ リ の タイ プ に は 、 大 き 
《 分 け て 、 次 の 4 つが ある 。 
①8 K バ イト 
②16K バ イト 
③82K バ イト 
④64K バ イト 

この 「 パ イト 」 と いう の は プロ グラ 
ム の デー タ を 記憶 する メモ リ の 単位 と 
思っ て お け ば いい 。 こ の 1 バイ ト で 、 
アル ファ アベ ペット や カナ な と を 1 文学 記 


憶 て きる 。 だ と えん ほ 、A 世 C と いう 


3 文字 を 記憶 する に は 3 バイ ト 必 要 と 
いう わけ が ら 

~ 8 K バ イト ” の KK は 、 だ いた だ たい kg な 
どの K と お な じ く 1000 倍 の こと と 考え 


や すい MSX だ っ て 、 メモ リ の 容量 」、 
つま り 、 メ モリ の 大 き さ るる さえ ぇ 必要 な だ 
け あ れれ ば だ いじ 1 うぶ な の だ 。 

も し 、 キ ミ の 持っ て いる MSX の メモ 
リ が 小さ か っ た と し て も 、 カ セッ ト を 
差し こめ ば 拡張 で きる わけ だ けれ ど 、 
打ち こむ と き に キチ ン と 確認 し て お か 
が いた と 、 ゼ せっ か く (町 も ちこ ん だ ブロ グラ 
ム が ムダ に な っ ちゃ うこ と も ある ぞ 。 


ーー 7 ら X の メモ ソ の 容 辱 は ブタ アプ 


て いい の だ けど 、 じ つ は も ち も ょ っ と 固 う 。 
と いう の は 、 フ パソコン で 使う KK は 1024 
倍 の こと を 表す こと が 多い か ら 6 だ 。 こ 
れ は 、 パ ソコ ユン に 限ら ず コ ンピュータ 
で 扱う 数 字 の 基本 が 2 進数 だ と いう こ 
と と 関係 が ある 。 つ まり 、 2 の 10 乗 が 
1024 な の だ 。 で も 、 こ の こと は と りあ 
えす 今 の 話 と は あま り 関 係 な い の で 、 
1 K が 正確 に は 1024 の こと だ と いう こ 
と だ け 知 っ て お け ば いい 。 

る て 、 本 書 に 掲載 し て いる プロ グラ 
ム に は 「16K (以上 用 )」 と か 「8K( 以 
上 用 )」 と か 書い て ある けれ ど 、 こ れ は 
その プロ グラ ム が 、 と どの タイ プ の MSX 
で 動く か を 示し て いる の だ 。 注意 し よ 


ピル) 


。 キミ の も っ て いる MSX が 、③ つ ま の タイ プ な ら ま ず ど この 雑誌 の プログ 
た と えば 、「16 K (以上 用 ) 」 と 書い て り 、32K の MSX な ら 、 本 誌 に 掲載 し て 。 ラム で も OK だ と 思っ て いて いい 。 


ある と 16K よ り 上 の MSX、 つ まり ②③ いる プロ グラ ム の すべ て が 動く こと に も し 、 フ ロッ ピー ディ スク を 使っ て 
④ で 動く こと に な る し 、「8K( 以 上 用 ) か 」 な る 。 いる 人 人 が いた だ ら 要 注意 。 た と え キ ミ の 


と 書い て あれ ば 、 8 KK より 上 の MSX 、 ④ で し か 動か な い プ ログ ラム は ちょ MSX が 32K で も 、P12 と P68 の ブロ グ 
つま り 全 部 の MSX で 動く こと に な る 。 っ と 特殊 な ゲロ グラ ム に な る の で 、③ ラム は デイ スク に 入ら な い ぞ 。 


ーー どぶ 、/5 く で 動か み 女 (コブ プロ グラ ム 注意 が 必要 だ 。 ま た 、 マ シン 語 を 使用 
し て いる プログ ラム も POKE 文 や PEE 

32K の MSX を 持っ て いる 人 は この る し 必要 な の だ 。 K 娘 で 呼び 出し て いる アド レス (メモ リ 
い 、 苦 労 し な いで すむ けれ ど 、 ち ょ っ だ と えば 、DIM な どの 配列 や 変数 を の 番地 ) が その MSX の メモ リ の 男 囲 を 
と 苦労 する の が 、 8K や 16K の MSX を た くさ ん 使用 し て いる プロ グラ ム は 動 超え て いる と エラ ー が 出 て 、 動 か な く 
持っ て いる 人 。 本誌 で は 、 ひ と つ ひ と く とき に メモ リ を 多く 必要 と する の で て 、 な っ て し まう の だ ( 図 -2 参 照 )。 
つの プロ グラ ム に メモ 
リ の 容量 を 書き そ ぇ て | 倫 図 - の MSX と メモ リ の アド レス 
いる の で 、 メ モリ の あ ※64K の 場合 は 32K く と お な じ も の が 2 つ あ る 
わな い プ ログ ラム は あ 必 民 レス 
きら め る か 、 短 〈 改 造 HOO000 
する か の と ちら か し か 
な いけ れ ど 、 ほ か の 雑 
誌 の ゲロ グラ ム に は メ 
モリ の 容量 を 書い て な 
いこ と も ある 。 そん な 
と き は 、 1 氏 バ イト が 
1024 文 字 分 で ある こと | SH8000 
を 思い 出せ ば 、 少 な 〈 
と も 、 絶 対 入 ら な い プ 
ログ ラム を 見 破る こと 
は で きる だ ろう 。 

で も 、 デ ログ ラム る を 
の も の は は いっ て も 、 
走ら せる と エラ ー の 出 
る 場合 が ある 。 ブ ログ 
ラム だ UM っ で も b。 | PFFF 
を の プロ グラ ム が 動く 32K ツ イプ 16K タ イプ 


(64K) 
た め の メ モリ が も う 少 


HCO00 


いい させ XX と 「( 『 ニ 
人 た さき な Jb) ラ へ 
いい ぃ いら な ぜ い ざ て 


XX そい ぃ 守 に て 
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ちょ っ と 、 手 を 加え れ ば 、 な ん と か 
8K や 16K で も 動く ん じゃ な いか な と 
思わ れる ブロ グラ ム に 出会っ た ら 6、 打 
ちこ ん だ 手間 が ムダ に な る こと を 覚悟 
し だ うえ て 、 次 の 方 法 を 試し て み ょ よう 
ほん と に ちょ ろ と し だ こと で 、32K 用 
が 16K で 動い た り 、16K 用 が 8K で 動い 
だ た りす る も の な の だ 。 (た だ し 、 本 誌 の 
プロ グラ ム は ある 程度 を うい う 処 理 を 
し だ た うえ ぇ て 掲載 し て いる の で 、 こ れ 以 
トメ モリ を 下げ る の は ちょ っ と むず か 
し だ みう 
マシ ン 語 や 配列 ・ 変 数 な どの 間 題 が 
な がく て 、 短 い デ ログ ラム だ っ た ら ……… 
REM 文 を 削っ た り 、 不 必要 な メッ セー 


叶 人 バ 放 、/ わ 放す ずる に 克 


ジグ 。 ス ペー ス を 削っ た り し て みよ う 。 
まだ 、 マ ル チ ス テー トメ ント で ブロ グ 
ラム を 短 (〈 す れ ば 、 入 る こと が ある 。 
祥 プ ログ ラム の 長 さ る と いい 、 配 列 や 変 
数 の 多 る と いい 、 な ん の 間 題 も な 〈、 
マシ ン 語 も 使っ て いな か っ た ら ……・ C 
LEAR 文 に 注目 ./ CLEAR 娘 の 弟 1 パ 
ラメ ー タ を 小さ くし て みよ う ( 図 -3 参 昭 ) 

ほか に も 、 マ シン 語 の 知識 きえ あれ 
ば 、 8K や 16K に する 方 法 は いく つか 
考え られ る けど 、 こ れ は と て も むず か 
し い の で 、 こ れ か ら の 勉強 次 第 と いう 
だ を あこ う 、 

だ だ 、 な る べく な ら キ ミ の MSX を 
32 人 KK の マシ ン に し て お きだ いも の が だ 。 


@ 図 -3 CLEAR の 第 1 パラ メー タ 
CLEAR 30, sgHEO000 


BASI じ が 使う メモ リ の 凸 限 を 指定 する 


文 史 他 域 の 大 き さ (文字 変数 の 内 容 を し まつ て お ぐ 
メモ リ の 大 き さ ヵ この 数 値 が 小さ すぎ る と Out of 
String Space エフ ー ガ が 出る が 、 不 秘 要 に 大 きい と 
その 分 よけい な メモ リ を 使 つ て いる こと に な る 。 ご この 
指定 を 省 上 略す る こと 上 自動 的 に 200 バ イト と る よう に な つて 
いる の で 文字 変数 に 使う メモ リガ が 少なく て いい よう 
な 場合 は 指定 し た ほう が いい こと が ある 


最後 に に これから キ ミ が ゲー ム の プ 
ログ ラム を 作っ て 、 友 達 と 交換 し た り 、 
雑誌 に 投稿 し て みた だ た りす る つも り で い 
る の な ら 、 い くつ か の お 願い を し て お 
きだ 0。 

キミ の MSX が 32K の も の だ と し て も ぉ も 、 
16K や 8 K の MSX ユ ー ザ ー だ っ て 多い 
の だ 。 な る べく な ら 、 だ た くさん の 人 が 
楽し め る プロ グラ ム を 作っ て ほし いも 
の 。 そ の だ た め に は 、 次 の 点 に 注意 し て 
は し い 。 


加 7SBX プ フロ グラマー へ ノ 


① ム ダ の な い プ ログ ラム を 組む 。 
② 長 く 《 て 同じ ルー チン が 何 度 も 出 て く 
る よう な ら 、 サ ブ プルー チン に する 
3 無 意 味 な 変数 を 使わ な い 
〈④ マ シン 語 の ルー チン を 使う と き は を 
の アド レス に 注意 する 
⑥⑤CLEAR 文 の 第 1 パラ メー タ を 必要 以 
昌 に 天 き くし な が ゆい 

だ だ 、 プ ログ ラム の お も し ろ さ を 犠 
牲 に し て まで 、 メ モリ を 小 き くす る こ 
と な は いと 思う けど 、 ム ダ な メモ リ だ 


け は 使わ な いよ うに 心がけ て ほし い 。 
事実 、 ち ょ っ と こう いう こと を 意識 す 
る だ け で 、 と だ ん に 8K や 16K で 動く 
よう に な る プロ グラ ム っ て 、 結 構 多 い 
も の だ 。 

な る べく 多く の MSX ユ ー ザ ー に 楽し 
ん で も ら え る プログ ラム を 作っ て は ほし 
い 。IMSX と いう パソ コン は 、 そ も を も 
な る べく 多く の 人 に 使っ て も ら う た め 
に 作ら 5 れ だ も の だ か ら だ 。 

最後 に も ち う ひと つ お 願い 。 い い プ ブロ 
グラ ム が で きだ た ら 、 ど ん どん テク ノボ ポ 
リス ま て 送っ て ね 。 詳しく は 、184 ペ ー 
ジ を 見 て ほし い 。 


ンク 


FOr M ら 和久 


ショ ー ト プロ グラ ム の ゲー ム っ て いう 
と (ほとん と が り ア ルク タイ ム だ けど 、 た ま 
に は じっくり 腰 を すえ て 楽し む の も いい 
ん じゃ な いか と 思わ せる の が 、 こ れ 。 
Tiny と は いう も の の 、 ちゃ ん と し た シ 
ミュ レー ショ ン ゲ ー ム に な っ て いる の だ 。 


川遊び 方 


リア ル タ イ ム と 違っ て ルー ル が ちょ っ 
と や や こし いか ら 、 よ (読む よう に ね 。 

RUN る せる と 、 ま すず 38xX38 の マス 目 が 
出 て き て 、 そ れ が 自動 的 に 青 で 8 つ 、 緑 
で 11 個 、 曰 で 3 つ 、 そ れ に 赤 で 1 つ 塗 り 
つぶ る れる 。 マ ス 目 は 全体 の 地図 で 、 青 
は 味方 の 戦闘 部 隊 、 緑 は 敵 の 戦闘 部 隊 だ 。 
また 曰 と 赤 は 味方 の 都市 で 、 日 は 小 都市 、 
赤 は 戦闘 本 部 の ある 首都 び 。 キ ミ の 使命 
は 、 味 方 の 戦闘 部 隊 を 移動 し て 攻撃 し 、 
敵 部 隊 を 全 減 き せる こと 。 反対 に 全部 や 
られ た り 、 首 都 を 攻撃 る され た り し た ら 、 
負け と な る 。 

部 隊 の 移動 は 、 カ ー ソ ルキ ー で 行う 。 
ゲー ム ス タ ー ト する と 、 最 初 が 味方 の 移 
動 で 、 青 が 赤 に 変わ っ た 所 が , 移動 で き 
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一 By Apeylon 
8 K 以 上 用 


る 部 隊 だ 。 上下 左右 方 
向 の うち 移動 し た い 方 和 
向 の カー ソル キー を 押し 、 リ ター ン キ ー 
を 押せ ば 、 そ の 部 隊 へ の 移動 が 指令 され 


る 。 1 部 隊 は 1 回 の 移動 で 2 マス 移動 で 


きる の で 、 1 マス し か ヵ か 動か な いと き や 移 
動 し た 《 く な いと き は 、 だ た だ リ り リターン キー 
を 押せ ば 、 次 の 部 隊 の 移動 に な る 。 

こう や っ て 8 部 隊 全 部 の 移動 指令 が 終 


了 す る と 、 画 面 が 移動 後 の 地 図 に 変化 し 、 


さら に 敵 (コン ピュ ー タ 側 ) の 部 隊 が 移 
動 し て 、 1 日 が 終わ る 。 

ここ で 注意 し て も らい た い の が 、 画 面 
右 の 5 つの 数 字 。 い ちば ん 上 の は 戦闘 日 
数 (最初 の 日 は 表示 る されない)。 2 段 目 の 
左 は 移動 指令 する 味方 部 隊 番 号 、 右 は そ を 
の 部 隊 の 戦闘 力 だ 。 下段 は 部 隊 が いる マ 
ス 目 の X,Y 座 標 (左上 が 0,0) と な っ て 
いる 。 

戦闘 は 、 敵 と 味方 の 部 隊 が 隣り 合っ た 
と き に 行わ れる 。 1 回 の 戦闘 で 、 敵 味方 
と も に 戦闘 力 が 減少 する 。 戦 闘 力 が 0 に 
な れ ば 、 を その 部 隊 は 消 減 す る 。 ま た 、 都 
市 は 攻撃 され る と 必ず 幸 減 する 。 


ア た だ いま 8 日 目 。 白 黒 写真 な の で よく わか ら な いと 思う けど 、 か な り 青 が や られ て し ま 
っ て いる 。 ウ ー ン 、 こ れ じ ゃ よほど の こと が な いか ぎり 負け ちゃ うな ぁ 。 


レイ 


ラ 

中 
アー / / に いい て 

ビッ / / / 


戦闘 日 数 は 全部 で 40 日 。 ム ダ な く 部 隊 
移動 し て 、 敵 を や っ つけ ろ / 


川 プ ログ ラム 解説 


文 変数 リス ト 

EX( ),EY( )…… 英 座標 /TX( ), 
TY( )…… 英 目標 座標 /EA( )… 散 
攻撃 力 /EW( )…… 敵 交戦 フラ グ / EC 
PA 英 の 色 /FX( ),FY( )…… 味 
方 座標 /FA( )…… 味 方 攻撃 力 /FW( ) 
…: 味 方 交戦 フラ グ /FC( )…・: 味 方 の 色 / 
SX( )SY( )…… 小 都市 座標 /LXX,LY 
の 大 都市 座標 /PL…… 日 数 カウ ンタ 
太 プ ログ ラム の 説明 

110 一 150 初期 設定 

170 一 270 味方 移動 

290 一 330 敵 移動 

350 一 410 全 減 チェ ッ ク 

430 一 440 日 数 ルー プチ ェ ッ ク 
490 一 620 画面 設定 

640 一 770 敵 移動 サブ ルー チン 
790 一 900 味方 移動 サブ グルー チン 
920 一 960 終了 ルー チン 

980 一 1020 デー タ 


六 文 文 文太 文 文 文 文 
発表 され る ショ ー ト プ ブログ 


ラム に あま り に も シミ ュ レ ーション ゲー 
ム が 少な い の で 、 作 り ま し た 。 いつ も は 
PC-8001 を 使っ て いる の で す が 。 
ゲー ム づ くり の 面 で は 、MSX に は ス ブ 
ライ ト と いう 強力 な 武器 が ある の で これ 
を 活用 すべ き な の で し ょ う が 、 こ の ゲー 
ム で は ウォ ー ゲ ー ム と いう 性 格 も あつ て 、 
そう な っ て は いま せん 。 他 機種 へ の 移植 
も 、 比 較 的 カン タン だ と 思い ます 。 
今度 は MSX ら し い リ アル タイ ム ゲ ー ム 
を 作っ て みよ うか と 思い ます が 、 実は ワ 
タク シ 理 科 系 の 大 学 5 年 生 な の て で 、 諭 研 
で 忙し く な っ て ムリ か な 、 な と と も 思っ 
て いま す [ Apeylon]。 
キキ キキ キキ キキ そ 和 羊 
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19 SCREEN2,1.9:DIM Y(2):DIM TX(2):DIM TN 
(2):DIM A$(19):MAXFILES=1:KEY OFF 

12 OPEN "GRP:" FOR OUTPUT AS#1 

15 SC=9:COLOR11.2.2:CLS:PSET(18.39) :DRAW 
"R29D5L15D19R15D5L29U29" 

29 PSET(48.39):DRAW"R29D29L5U19L19D19L5U 
2 " 

39 PSET(78.39):DRAW"R29D19L15F19LSH5D5L5 
U29" 

49 PSET(128.39):DRAW"R29D19L15F19L5H5D5L 
SU29" 

59 PSET(158.39):DRAW"R29D29LSU19L19D19L5 
U29" 

69 PSET(188.39):DRAW"R29D5L15D19R15D5L29 
U29" 

79 PSET(218.39):DRAW"R29D5L15D2R1S5D5L15D 
3R1S5D5L29U29" 

89 FORA=9TO2:PAINT(Ax39+19.31):NEXT A:FO 
RA=9TO03:PAINT(AX39+129.31):NEXT A 

99 LINE(195,112)-(112.128),1.BP:LINE(143 
ぅ 112)-(159.128),1.BF:LINE(192.169)-(195。 
178),1.BF:LINE(159.169)-(153.178),1.BF 
199 COLOR4:PSET(195,199):DRAW"R45D19L19D 
29R19D59L19D3R19D19L45U19R19U3L19U59R19U 
29L19U19":LINE(118.189)-(137.183) ,4.B:PA 
INT(196,191 ) ,4 

119 CIRCLE(127,149),7,5:PAINT(127。149) ,5 
:LINE(129。149)-(135.175),1.BF 

129 CIRCLE(127.119).6,.15:PAINT(127。119), 
15:PSET(127.115):DRAW"E1L1U7H1R2" 

139 LINE(129,175)-(135.166) ,8,BF 

149 CIRCLE(127.162),4.13:PAINT(127,162) 。 
13 

159 PSET(131.169),14:DRAW"E3U19L2U2L9D2L 
2D19F3R7":PAINT(139,157) ,14:PSET(131 ,145 
)。1:DRAW"D19G1":PSET(124.145),1:DRAW"D19 
F1":PSET(127.149),12:DRAW"D5LSR19" 

169 PSET(99.139) ,9:DRAW"L19U5G15F15U5R19 
U29":PAINT(89.131).9 

179 PSET(165,139),9:DRAw"R19U5F15G15U5L1 
9gU29":PAINT(166,131),9 

189 PRESET(77.89):COLOR1:PRINT#1 "HIT SP 
ACE KEY" 

199 OUT 179,(INP(179)AND249)0R8: IF (INP( 
169)XOR255)=1THEN 299ELSE199 

299 RESTORE:DEFINTA-Z:FOR A=9TO5:A$ も = の "EE 
OR B=9TO7:READ B$ 

219 A$=A$+CHR$ も (VAL("&B"+B$) ) :NEXT B:A$(A 
) =A$:NEXT A:FOR A=9TO5:SPRITE$(A)=A$(A): 
NEXT A:GOSUB 879:CA=2 

229 DATA 99911999 
239 DATA 99111199 
249 DATA 99111199 
269 DATA 99111199 
279 DATA 991111099 
289 DATA 99199199 
299 DATA 99111199 
399 DATA 99111199 
319 DATA 91999910 
329 DATA 91999919 
339 DATA 91999919 
349 DATA 99999999 
359 DATA 99999999 
369 DATA 11999911 
379 DATA 11999911 
389 DATA 11999911 
399 DATA 99911999 
499 DATA 91111119 
419 DATA 99911999 
429 DATA 99111199 
439 DATA 99111199 
449 DATA 91111119 
459 DATA 99111199 
469 DATA 99911999 
479 DATA 19999991 
489 DATA 19999991 
499 DATA 19999991 
S99 DATA 99999999 
S19 DATA 19999991 
S29 DATA 19999991 
S39 DATA 19999991 
549 DATA 99999999 
S59 DATA 99111199 
S69 DATA 91911919 


S579 DATA 99111199 


S89 DATA 99199199 

S599 DATA 99111199 

699 DATA 99199199 

619 DATA 91111116 

629 DATA 99111199 

639 DATA 19999991 

649 DATA 19999991 

659 DATA 19999991 

669 DATA 99999999 

679 DATA 99999999 

689 DATA 19999991 

699 DATA 19999991 

799 DATA 19999901 

795 CLS:X=-16:LINE(59,9)-(179,191) ,14,BF 
:LINE(45.9)-(59,191),1,BF:LINE(167.9) -(1 
72。191),.1.BP 

798 PRESET (172.79):COLOR15:PRINT#1 ,HI 
719 PRESET (189,99):COLOR15:PRINT#1 , "SCO 
RE":PRESET (172。119):PRINT#1 ,SC 

715 PRESET (189,.59):COLOR15:PRINT#1 , "HI - 
SCORE" 

717 PRESET (189,149):COLOR15:PRINT#1 "CA 
R" 

718 PRESET (172.169):COLOR15:PRINT#1 .CA 
729 GOSUB979:IF 111+X く <TX(1) AND 141+X>TX 
(1) THEN IF Y(1)>159 AND Y(1)<191THEN 81 
り 

725 IF 111+X く <TX(2) AND 141+X>TX(2) THEN 
IF Y(2)>159 AND Y(2) く <191THEN 819 

739 OUT 179,(INP(179)AND 249)O0R8:A=INP( 1 
69 )XOR255 :SC=SC+ 1 : SOUND9 , 95 : SOUND1 , 8 : SOU 
ND2 , 9 :SOUND3, 9 :SOUND4 ,9:SOUND5 , 9 : SOUND6 , 
9 :SOUND7 , 62:SOUND8 , 16 : SOUND19 , 9 :SOUND19 , 
g:SOUND1 1 , 35:SOUND12.9:SOUND1 3,13 

749 IF A=128 THENX=X+7 

759 IF A=16 THENX=X-6 

755 IF 126+X<49 THEN 819 

758 IF 126+X>154 THEN 819 

769 IF Y(1)=189 OR Y(1)=9THEN 779ELSE775 
779 TX(1)=INT(RND( 1)x119)+59:Y(1)=9:TN(1 
)=INT(RND( 1 )x16)-8 

775 IF Y(2)=189 OR Y(2)=9THEN 778 ELSE 7 
89 

778 TX(2)=INT(RND(1)x119)+59:Y(2)=9:TN(2 
)=INT(RND(1)x16)-8 

789 FOR A=1TO2:Y(A)=Y(A)+29:IF TN(A) く >9 
THEN IF TN(A)+TX(A) く <51 OR TN(A)+TX(A) >15 
S THEN TN(A)=TN(A)※-1 

799 TX(A)=TX(A)+TN(A):PUT SPRITE Ax2,(TX 
(A),Y(A) ) ,。A+11:PUT SPRITE Ax2+1 , (TX(A) ,Y 
(A)),1:NEXT A 

899 PUT SPRITE 9,(126+X。179) , 4:PUT SPRIT 
E 1,(126+X,179),1:GOTO 729 

819 SOUND9 , 9 :SOUND1 ,9:SOUND2 , 9 : SOUND3, 9 : 
SOUND4 , 9 :SOUND5 , 9 : SOUND6 , 31 : SOUND7 , 55 : SO 
UND8 , 16:SOUND9 , 9 :SOUND19 , 9 :SOUND1 1 ,239:S 
OUND1 2 , 99 :SOUND1 3, 9 

829 COLOR8:FOR BA=1 TO 25:CIRCLE(X+134, 1 
78) ,BAX2.6:NEXT BA 

639 Y(1)=9:Y(2)=9:CA=CA-1:IF CA=-1THEN85 
り 


849 PUT SPRITE9,(9,298):GOTO 795 

859 LINE(189,199)-(254,129) ,2,BF:COLOR15 
・PRESET(172.119):PRINT#1 ,SC:COLOR6 : PRESE 
T(75,78):PRINT##1 "GAME OVER":FOR A=1TO 5 
999:NEXT A:PUT SPRITE,(9.298):CLS:IF HI 
く SC THENHI =SC 

869 GOTO 15 

6879 DEFINTA-Z:A$=" "FOR B=9TO7:READ B$ 
889 A$=A$+CHR$(VAL( "8&B"+B$) ) :NEXT B:A$(6 
) =A$:SPRITE$( 6 ) =A$( 6 ) : RETURN 

899 DATA 99911999 

999 DATA 99111199 

919 DATA 91111119 

929 DATA 11111111 

939 DATA 91999919 

949 DATA 910999919 

959 DATA 91999919 

969 DATA 91111119 

979 HO=HO+5:PUT SPRITE6,(29.HOX8),7:IF H 
0=39 THEN HO=-5 

989 RETURN 


し みん 


人 @ 太 昌 間 を 戦い つつ 進ん で いけ 


FOR MSX (8K) 


画面 を 見 つめ つづ け て いる と 、 遠 く 
宇宙 の 彼方 まで 吸い 込ま れ て し まい を 
う 。 そ うい えば 、 こ の まえ 見 た 『 ス タ 
ー ト レッ ク 』 の 操縦 席 も こん な 雰囲気 
だ つ だ よう な で の o 


惑星 か ら 惑 星 へ 

ドー ーー 
危険 な 宇宙 旅行 

RUN さ る させ て 、 ま ず 、 ジ ョ イス ティ 
ッ ク か キー ボー ド か を セレ クト 。 ま だ 
ジョ イス ティ ッ ク を を そろ えて いな い キ 
ミ は 、 ジ ョ イス ティ ッ ク モ ー ド に し ち 
ゃ うと ゲー ム で き な い か ら 注 意 し よう 。 
ちな み に カ ー ソ ル を 指定 し た 場合 も 、 
も ちろ ん ジョ イス ティ ッ ク は 使え な い 


よ 。 
セレ クト が 終わ る と 、 ゲ ー ム スタ ー 
に 林 
画面 に は 、 い か に も 危害 を 加え て き 


を うな 、 無 表情 な 敵 が 現れ 、 ゆ っ 〈 り 5 
ジワ ジワ と こち ら に 近づい て くる 。 

画面 に 表示 され て いる スコ ー プ "に 、 
うま く 敵 を 捉え て 、 ス ペー スキ ー で 料 


gY 人 在 魔 旧 姜 


破 し よう 。 

て も 、 うま て 本 
ち 洛 と せな い 
まま 、 敵 が こ 
ちら に 接近 し て 
し うう ょ 。 0 
の ダメ ー ジ を 受け 
て し まう 。 そ の 
メー ジ が 50 多 に な る 
と 、 示せ ボボ 王 に な っ 
て ゲー ムキ オー パー が だ 。 

コツ は 、 も う 捉 えき 
れ な いと 思っ だ ら す ば 


田 変 数 リス ト ・ XY…… 星 の ラン ダム 座標 ・ 270 一 280 
EE…… ス コア ・ AB…… 敵 の 回 転用 ・290-300 
Z…… 惑 星 (場面 数 ) ・W……STICK 入 力 判定 用 ・310-340 
F…… 英 の 残り の 数 ・ V……STRIG 入 力 判定 用 ・350 

し …… ダ メー ジ の 限界 ・ 画 プロ プラム の 説明 ・ 380 一 400 
DM…… ダ メー ジ 10 一 140 初期 設定 ・ メ ッ セ ー ジ 表示 ・ ・ 410 一 470 


キー ボー ド or ジョ イス ティ イツ 


・480-520 


T……1 回 の 秘 動 量 ・ ン 選 択 等 ・530 一 590 
U…… 敵 の スピ ー ド ・150 一 160 星 を ラン ダム 表示 ・ 600630 
A.B.S …… 敵 の 位置 ・170-180 メッ セー ジ 表 示 ・650 一 670 
C.D-… 敵 の 秘 動 用 ・190 一 260 画面 表示 ・680 一 700 


NN 
て いく や SN SN い 
NN 


敵 灯 発 処 理 ・ 面 リア 判定 


惑星 表示 
プ ブラック ホー ル 表 示 
面 の リア ・ 


分 ( 旨 人 呈 凌 | 二 塵 ( 5 還 還 叶 加 (5 昌 拓 半 (時 (5 各 天 和 還 導 隔 ( め 


MSX を 買っ て し ば らく 
し て か ら 、MS X に 
D R A W と いう と て 
も 便利 な 命令 が ある の 
に 所 づき 、 こ の ブロ グ 
リム に 使っ て み ま し た 。 
この 命令 は 、 SMC-70、 
PASOP A7 な ど に も つ 
いて いる の で 移植 し や すい で す よ (佐藤 昌 


W 
s 


四半 上 肖 目 症 計 肖 放 上 記 時 時 還 。 2 

や く 〈 逃げ て し まう こと 。 近く で 敵 を 爆 
破 し て も 、5 多 の ダメ ー ジ を 受け る の 
で 深追い は 禁物 な の だ 。 

英 を 5 機 や っ つけ る と 、 次 の 惑星 に 
だ どり つゆ る 。 

第 1 惑星 、 第 2 惑星 、 第 3 惑星 と 順 
調 に 旅 を し て いく と 、 ど うい うわ けが か 
ちよ っ と も みろ 《 な っ て し まい 、 ダ メー 
ジ 30 欠 で ゲー ム オ ー バ ー に な っ て し ま 
う の で 、 る ら に 慎重 に 戦う こと 。 

さて 、 つ いじ に 第 5 惑星 を 通過 (いき 
な りや っ て 、 こ こま て これ だ ら 6、 寺 ミ 
は ブロ 級 だ 。 と に か 上 難し いん だ か ら ) 
し た ら 、TP-1 と いう 機械 を 積ん だ 船 
が 登場 する の で 、 こ れ を 回 収 。 や っ と 


人 ER 5 SEE 5 人 65 ci 9 
Sg ES ES 5 3 本 昌 ( 加 555 (59 E 科 各 王 5 (5 


作者 に よれ ば 、 こ の ほか に も いろ い 
ろ 仕掛 けが ある と いう こと が だ 。 


1 


NN 
NNKSYYY くい 
> ら な 
. ゃ の レフ りあ に ご > 
と の 0 っ いき 2 っ ぱと * 
敵 機 表示 ・710 一 770 _BM-1 を つん だ 船 を 表示 
敵 機 到 り 数 に よる 回 転 処 理 : 780 一 800 GAME フ リア メッ セー ジ 表 
キー 入力 お よび 劉 理 衝突 処理 示 
衝突 処理 ・810 一 840 効果 音 デ ー タ 
お 助け 処理 ・ メ ッ セ ー ジ 表示 ・ 画 チ ェ ッ フ ポ イン ト 
が ーッ オー リー ちよ つと 秘 動 が 遅 < 難 しい ので 、 物 動 
ビー ム 処 理 ・ 量 を 多 こ する だ め に 、130 行 の 、 エー ス を 


・ 征 =20 こ らい に 。 ま た 、 ダ メー ジ に も 強 
・ こ する よう に 100 行 の し =50 を し =100 に 
3 選 あ まう 。 


ボー ナス 娘 理 


ヴ ン 


19 CLS 

29 SCREEN 9:KEY OFEF:COLOR 7,1.5:LOCATE10 
>19:PRINT "KEY BORD [9] KEY":LOCATE1 9 , 12: 
PRINT "JOY STICK [11] KEY" 

39 LOCATE22.22:PRINT"(C) 1984 BY SATOH" 
49 LOCATE12.14:PRINT"[9] OR [11]":0$= INKE 
Y$:IF 0$="9" THEN Q=9 ELSE IF 0$="1" THE 
N Q=1 ELSE 49 

S9 PLAY"V1305T139D19E19F5D19F19E19D19C19 
D5" 

69 E ビ =9 

79 CLS:COLOR 7:LOCATE14.19:PRINT "GOOD LU 
CET 

89 LOCATE12.12:PRINT "SEE YOU AGAIN" 

99 LOCATE14.14:PRINT "READY GO! ":FORTI =9TO 
1399: NEXT 

199 Z=9:L=59 

119 OPEN "GRP:" FOR OUTPUTAS#1 

129 SCREEN 2:F=9:DM=9:H=RND( 1)x19:G=FIX( 
H) :H1 =RND( 1 ) x29:G1=FIX(H1 ) 

139 T=4:IF Z=5 THEN PRESET ( 49, 159 ) :PRINT 
#1 。 "タイ ヘン テ ~ ス テキ カ ~ 2 Km テ ~ キ マス ":FORI =9TO1999 
・NEXT:CLS:U=2:T=8 

149 IF Z>=3 THEN L=39 

159 CLS:A=RND( 1 )x196+39:B=RND( 1 ) x141+30: 
6= 1 

169 FORI=9TO19:X=RND( 1 )x255:Y=RND( 1 ) x198 
:PSET(X.Y),15:NEXT TI :AB=9 

179 IF DM>=49 OR Z>=3 AND DM>=29 THEN PR 
ESET(59,189):PRINT#1 "CONDITION: 4 DANGER 
111"2BEEP:GOTO 219 
189 IF DM>=39 THEN PRESET( 59 , 189 ) : PRINT# 
1, "CONDITION:3 POWER OFF":BEEP:GOTO 219 
199 PRESET(119.79):PRINT#1。"F ュ っ" 

299 PRESET(119,199):PRINT#1 "と コ " 

219 LINE(9,9)-(256,8) ,4,BF 

229 FORI=1TO3:COLOR 15 

239 PRESET(8+I ,9):PRINT#1 "SCORE: " 

249 PRESET( 122+1.9):PRINT# せ 1 ,。 "DAMAGE:" 
259 NEXT I 

269 PRESET(56,9):PRINT#1.E:PRESET( 178,9) 
・PRINT 拉 1 ,DM:COLOR 7 

279 DRAW "a=abiS=Si BM=a: ,=biu1911d1915g1 
grie6r18f6rlh19112f3r6e3c1" 

289 DRAW "a=abiBM=ai ,=biu1911d1915g19r1le 
6r18f6rlh19112f3r6e3c9" 

299 IF F=4 THEN AB=AB+ 1 

399 IF AB=3 THEN AB=9 

319 Ww=STICK(Q) :V=STRIG(Q) 

329 C=(W=6)+(W=7)+(W=8)-(W=2)-(W=3)-(W=4 
):D=(W=8)+(W=1)+(W=2)-(W=4)-(W=5 )-(W=6 ) : 
C=C%T :D=DxT 

339 IF A+C<39 OR B+D<39 OR A+C>226 OR B+ 
D>171 THEN 159 

349 A=A+C:B=B+D 

359 IF S>19 THEN DM=DM+ 19 : RESTORE 819:FO 
RJ=9TO13:READD : SOUNDJ,D:NEXTJ:GOTO 579 
369 IF V THEN 489 

379 S=S+U:GOTO 279 

389 SCREEN9: IF G<>1 THEN 419 

399 BEEP:LOCATE1 9 , 19:PRINT "ホン ライ GAME OV 
ER タダ “サト ~ "ELOCATE1 9 , 12:PRINT "アナ タ ノ ミカ タニ タス 
ジラ レ タプ デ ~ 

499 LOCATE1 9 , 1 4 :PRINT "マエ ノ ホシ カラ モウ イチ ト * テ *~ 
キマ ス " :FORI=9TO5999:NEXT TI:GOTO 129 

419 LOCATE13,.12:PRINT "GAME IS OVER" 

429 LOCATE13,15:PRINT "PUSH [S] KEY" 

439 LOCATE13,19:PRINT "YOUR SCORE "ijE 

449 LOCATE13,17:PRINT "DAMAGE "iDM 

459 RESTORE 819:FOR J=9TO13:READD : SOUND 
J,。D:NEXTJ 

469 A$=INKEY$: IFA$= "Ss "THEN CLOSE#1 : GOTO 
69 

479 GOTO 469 


489 RESTORE 839:FORJ=9TO13:READD : SOUNDJ, 
D:NEXTJ 

499 LINE (9,159)-(125.99) ,7:LINE(255,159 
)=( 425 。99 ) 。 ア 7 

S599 LINE (9,159)-(125,99) ,1:LINE(255,159 
)-(125 。90 ) , 1 

S19 IF A>119 AND A<149 AND B>79 AND B<19 
oO THEN 539 

S29 GOTO 379 

S39 RESTORE819:FORJ=9TO13:READD : SOUNDJ,D 
・NEXTJ:FORI=9TO19:CIRCLE(A,B) , 1 , 1 :CIRCLE 
(A,B) ,T,1:NEXTI 

S49 E=E+199+19-S:IF S>8 THEN DM=DM+5 

SS59 IF F=4 THEN E=E+199 

S69 F=F+1:IF F=5 THEN 599 

S79 IF DM>=L THEN 389 

S89 GOTO 159 

S99 Z=Z+1:IF Z=6 THEN 719 

699 FORI=9TO79:CIRCLE( 125,87) , 1 ,Z+1 :NEXT 
619 IFZ=20RZ=4THENLINE(9,87 ) -(256,87 ) , 15 
629 IFZ=10RZ=30RZ=5THENLINE( 7 ,15) -(23,15 
) 。 ま 5 

639 CIRCLE(15.15) 5.Z+2:PAINT(15,15) ,Z+2 
649 IF G1<>1 THEN 689 

659 FORI=79TO9STEP- 1 :CIRCLE( 125,87) , 1 ,1: 
NEXT 

669 FORI=9TO79:CIRCLE( 125,87 ) , 1 ,8:CIRCLE 
(125.87) , 1 エ ,1:NEXT 

679 SCREEN9 :LOCATE13,15:FORI=9TO19:BEEP : 
NEXT:PRINT"BLACK HOLE!":FORI=9TO1999:NEX 
TIECLS:GOTO419 

689 BEEP:PRESET(69, 169 ) :PRINT#1 ,USING" コ コ 
八 ダイ 盾 ワ クセ イ デ ^ ス "5Z 

699 IF DM=9 THEN PRESET( 49 , 179 ) :PRINT#1 , 
"PERFECT GAME ! BONUS 299":E=E+299 

799 FORI=9TO5999 : NEXTI : GOTO126 

719 CLS:LINE(69,52)-(159.69) ,8,B:LINE(69 
45)-(129,59) ,8,B 
729 FORI=89TO119STEP15 :FORL=69TO89STEP2: 
CIRCLE( TL) 5.8.9.3:NEXTL, ! 

739 LINE(79,75)-(159,.89),8.B:LINE(79, 82) 
-(159.85),.8,B 

749 LINE(149.69)-(159.75) ,8,B 

7S59 FORI=79TO119STEP5 : PSET( 1 ,47) , 8:NEXTI 
769 FORI=151TO169STEP2:LINE( I ,55) - (1I.,79 ) 
5 8:NEXTI 

779 LINE(162.55)-(179.55) ,8:LINE- (175,。69 
),8:LINE(175.69)-(169.65),8,B:LINE(123,4 
S ら )-(139,59) ,8,B 

789 BEEP:PRESET( 49,119) :PRINT#1 , "コレ カ ~ BM 
-1 ブ ツン タ ^ フネ テ ~ ス " :PRESET ( 49 , 120 ) : PRINT#1 , 
"アナ タ 八 BM- 1 ブ カイ シュ ウ シタ ノ テ ~" 

799 PRESET( 49 , 130 ) : PRINT#1 , "アナ タ ノ ニン ム ミコ 
~ ト こ オ ワ リ マシ タ " : PRESET ( 49 , 149 ) : PRINT#1 , "モウ イチ 
ト ~ START シマ ス 。" 

699 FORI=9TO19999:NEXT : SCREEN9 : CLOSE#1 :G 
OTO 79 

819 DATA9,9.9.9,9,9,21.,247 

829 DATA16,.9,.9,199,69,9 

839 DATA9,9.9,9,.9,9,1,7 

849 DATA16,.16.16,199,199,9 
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4 方 向 か ら バグ が 
Z-80A に 襲い か か っ 
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あの いま わし い バ グ が つい に 実体 化 ・ キ ー て 退治 し よう 。 


し て 、Z-80A に 襲い か か っ て くる / て 6、 ス ョ ヨージ は 加 
RUN す る と 、LSI の うえ を ユイ ン 速 が つく の で ちょ っ 
が 回 転 し な が ら 移 動 す る デモ 画面 。 こ と 操作 が 難し い ぞ 。 
れ な か な か カッ ココ いい 。 ジ ョ イス ティ と き と ど とき 、 あ る ポ 
ッ ク か キー ボー ド か を 決め た ら ゲ ー ム イン ト を 撃つ と スペ 
スタ ー ト 。 シャ ルフ ラグ が 出 て 


エク スト ラ 追 加 。 ト 
ラン ス え の う えん に 当 て 
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を 撃っ て も アウ ト だ 
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バ 打ち こみ バグ に も NN 員 間 Il 

を 注意 し よう ね 。 ^ ム や られ だ / この スコ ー ブ 、 衣 難し いん だ よね 。 
田 変 数 リス ト ・ SA…… ス テー ジ 数 ・170 一 410 画面 設定 : ん と いつ て も 場面 設定 が いい 。 
H…… ハ イス コア ・SP…… バ パグ の スピ ー ド ・ 420-580 メイ ン ル ー チ ン : 加速 が つこ スコ ー プ 、 へ ロ ヘ へ 
FM…… コ イン が 出 て いる か : ST…… キ ー 入 力 判定 用 ・ 590-690 キヤ ラフ タデ ー タ  : 飛ん で 行く ミサ イル 、 ス ペ シ 
SR,DX,DY…… デ モ 用 : MXMY…… ミ サイ ル の 座標 : 700~-740 旭 発 処理 ・ ヤル フラ プ 、 ボ ー ナ スコ イン と 
IY…… 画 面 設定 用 ・ SC…… ス コア ・ 750-830 ミサ イル 処理 ・ な ガ な が 凝 つ て いま す な 。 デモ 
SX.SY…… フ ラッ グ の 位置 : KE.…… 倒 し た バブ の 数 ・ 840-900 バブ を や つつ けた 処 : も いい で き 。 プ ログ ラム の まこ 
A B…… ス コー プ の 喉 禁 : 田 ブ ロブ ラム の 説明 理 : まり が いま いち だ けど 、 これ か 
CD…… ス コー プ の 移動 用  : 10 一 30 初期 設定 ・ 910-970 ゲー ム オ ー バ ー : ら も が ん ば つて 凝 つ を も の を 作 
中 …… バ パグ の 方 向 :・ 40-100 タイ トル ・ 980-1000 フラ ッ グ 劉 理 : つて ほし いも の で す 。 
X.Y…… バ ブ の 座標 : 110 こ 130 デモ : 還 チ エッ フ ポ イン ト :・ と ころ で 、Z-60 の 足 つ て ご ん 
CH…… バ パプ の キャ ラク マヤ ・140-160 キー ボー ド Or ジ ヨイ : ゲー ム と し て は 普通 の シュ ユー : な に 少な が つ だ つけ 
LF…… 自 分 の 残り ステ ィ ッ ク ゃ ・ ティ ング ゲー ム だ けれ ども 、 な : 
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の =H: 96S ヨコ HO1S ヨ d: の "2* と N ヨ ヨ dJS の 【 


し ん) 


秋 に ぴっ た り と いえ ば ぴっ た だ たり の ゲ 
ー ム 。 瀬 死 の 蝶 が 出 て くる あ だ り 、 い 
か に も そん な 感じ 。 よ ー〈 考 える と 、 
ちょ っ と 残酷 な 気 も する な 。 

いや いや これ は ゲー ム だ か らし て 、 
を ん な 私 情 は は る ん じゃ いけ な い 。 と 


に が て (〈、 キ ミ は グリ ソリ カタ 由 / と ーー だ 、 


まい っ だ か 。 そし て 、 キ ミ は 蝶 を 食べ 
て ポイ ント を か せ で の だ / 移動 は カカ 
ー ソ ル ・ キ ー ま だ は ジョ イ ・ ス テイ ッ 


へ は 
2 と Su 
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人 Q 器 療 S 圭 計 間 O び と r 粒 軸 中 
ぶさ は は うき は YS とび 人 性 世 
QA へ SS へ 人 は 束 二 計 抽 さ ペ 


WWWW 


ク だ 。 で も 、 敵 は 多い ぞ 。 

まず は 2 匹 の カブ ト 虫 。 こ いつ 
に つか まる と 1 匹 ダ ウン 。 そ を し て 、 
木 の 横 か ら 舌 を 伸ばし て 《 る カメ 
レオ ン 。 この 舌 に 触れ て も 1 匹 ダ 
ウン だ 。 3 也 ダ ウン て ゲー ム オ ー 
フ ヾ ーー。 

で も 、 キ ミ は スペ ー ス ・ キ ー 、 
まだ は ジョ イ ・ ス ティ ッ ク の トリ 
ガー で 、1 匹 に つき 3 回 まで ワー ー「 
プ で きる 。 せ い ぜ い 活用 し よう ね 。 


画 変 数 リス ト : X( )…… カ ブ ト ムシ の X 座 標 ”: 1330-1390 ゲー ム オ ー バ ー  : 
HS…… ハ イス コア ・ Y( )……… カ ブ ト ムシ の Y 座 標 ": 1400-1420 スコ ア 表 示 

S…… ス コア ・ 較 プロ ブラム の 説明 ・ 田 チエ ツ フ ボイン ト 

A…… ク フワ ガタ の X 座 標 ・ 60-220 初期 設定 ・ ほのぼの と し た ゲー ム で すね な 。・ 
B…… フ ワ ガ マ の Y 座 標 ・ 230 一 430 木 を か く ・ ちよ つと プロ グラ ム が あつ ち 


A2…… チ ョ ウ の X 座 標 : 440500 スプ ライ ト 定 義 ・ こっ ち に 飛ん で いま すね 。 ス プ 
B2…… チ ョ ウ の Y 座 標 : 510-1180 メイ ンプ ログ ラム  : ライ ト の デー タ は 一 番 後 に 、 ま 
B3…… カ メレ オン の YY 座標 : 1190-1280 スプ ライ ト デ ー タ : た スコ ア 表 示 の サブ ルー チン は 


ぎの 6 


ゲー ム 中 、 一 定時 間 ご と に 動き が は 
や く な っ て ピン チ に な る (た だ し ポイ 
ント は 10 貞 プラ ス ) の で 、 注 意 / 


4 大 き な 幹 を くわ が ガ つ だ ん は 登り ます 。 


メイ シン ルー チン に 和信 れ た だ ぼ ほう が 
・ い いで し よう つ 。 


_ 940 行 一 1010 行 あめ だ を り の キー 


入力 処理 な ど は 語 理 式 を 使い 、 


: まだ その 後 の |FーTHEN の 山 
: も 整理 すれ ば も うち よっ と 速く 
: な る の で は な いか な 
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くわ が っ た ん 


本 は エエ ユメ ュ スエ スエ エエ エメ エエ エエ テ そ ャ ャ キズ 


" 基 クワ カ ~ ッ タ ン 革 
* 和 ※ by Tomonori ItsSui ※ 
" 基 1984/8/27 ※ 


放さ スエ エエ エエ エメ テ エ そそ エエ エナ エ テ エ テ そ テテ そそ. 

SCREEN 1:KEY OFF 

LOCATE 6、。1:PRINT "※ 半 ※※ 半 ※※※※ 光 光 光 区 区 ※" 
LOCATE 6.2:PRINT "※%% 半 ※※ 
LOCATE 6.3:PRINT "※※%※ クワ カト ッ タ ン ※※※" 
LOCATE 6.4:PRINT "※※※ マズ 3 


LOCATE 6.5:PRINT "※※※ 半 ※ 半 ※ 光 洋光 基 光 半 贅 区 " 

LOCATE 5.9:PRINT トチ ラテ ~ PLAY シマ スカ ?" 

LOCATE 5.13:PRINT "キー ホ ~ー ト ~ >>> PUSH 9" 

LOCATE 6.15:PRINT "ステ ィ ッ ク >>> PUSH 1" 

IN も =INKEY$:IF IN も = "9" THEN ST=9:GOTO 189 

IF IN$="1" THEN ST=1:GOTO 189 

COLOR (CL MOD 5)+13.2:CL=CL+1:FORI=1TO59 :NEXT :GOTO 159 

SCREEN 2.2.9:COLOR 15,1.1:CLS:R=RND( -TIME ) :COLOR 15,1.1:KEY OFF 
HS=9:PP=3:S=9:W=3:B3=199:AL=17:AX=1 :AZ=9:P=PP 

DIM XX(209) ,Y(29 ) 、C( 20 ) , V( 29 ) 
OPEN "GRP:" FOR OUTPUT AS #1 
PLAY "S1 4M399L64" 
LINE(17.9)-(175,.191 ) ,19.BF 
LINE(178,191 )-(255,169) ,10 
PAINT(255、191).,19 
LINE(176,.199)-(255,.5),10 
LINE(176、159)-(255,55 ) , 19 
PAINT(259.15),19 

FOR !I=19 TO 255 STEP 14 
FOR U=1 TO 3 
M=RND( 1 )x151+45 

LINE( IT.M)-( TE,M+RND( 1 ) 5+5 ) , 1 
NEXT 

NEXT 

X=29:FOR I=9 TO 5 

し IRCLE(X、20 ) 。39 、2 
PAINT(X+29,20) ,2》 

X=X+ 35 

NEXT 

CURCLE( 233。40)、60.2.2.1。.6 
PAINT(230, 60 ) , 2 

CERCLEI 2493、151)。 7 ウラ 、。。。。6 
PAINT(249,.149),2 

RESTORE 1199 

FOR RE=9 TO 21G$="" 

FOR AD=1 TO 32 

READ CH$ 
G$=G$+CHR$ も (VAL("&H"+CH$ ) ) 
NEXT 

SPRITE$( RE ) =G$ 

NEXT:FOR P=2 TO 3:SPRITE$(P) =G$ も :NEXT P 

RESTORE 1259:FOR RE=6 TO 7:G も ="" 

FOR AD=1 TO 32 

READ CH$ 

G$=G$+CHR$ も (VAL("&H"+CH$ ) ) 

NEXT: SPR1TE$( RE ) =G$ : NEXT 

PSET(185.29) 2:PRINT#1 "HI-SCORE " 
PSET(185.59).2:PRINT#1 ,。 "SCORE" 

PSET(185、130).22PRKINT 人 1 。 グフ カタ 

PSET(185.169) ,2:PRINT#1 。、" ワ ー ブ プア 
S=9:Q=4:W=3:Z=3:B3=199:AL=17:AX=1:AZ=9 

PLAY "04CDEFGABO5CDEFGABO6CDEFGABO7CDEFGABO8CDEFGAB" 
T=9:LINE(249,169)-(259,179) ,.2.BF 

PSET(241.169).2:PRINT##1 "3" 

P=PP:FOR I=2 TO P 
X(I)=INT(RND(1)x145)+29:Y(I)=INT(RND(1)x79):V(I)=INT(RND( 1 )X8)+4 
NEXT 

A2=INT(RND( 1 )x145)+29:B2=INT(RND( 1)x79):V=INT(RND( 1 )X8)+4 
A=95:B=1709 

P=PP 

IF Q く 1 THEN Q=4 

LINE(219、39 か (255 . 38 ) 、2 BE 

PSET (205,39 ) ,2:PRINT#1 ,.HSx19 

LINE(239 139)-(259.148).2.BF 


マグ 


くわ が っ た ん リス ト 続 き 

759 PSET(233。139 ) , 2:PRINT 補 1 ,w 

769 GOSUB 1499 

779 FOR K=@ TO 29 

789 PLAY"S11M599L6407C" :PLAY"S14M399L6g 

799 FOR 1』=2 TO P 

899 PUTSPRITE !.,(X(!』).Y(1I) ),4 

819 PUTSPRITE 6,(A2,B2) ,13 

829 B2=B2+V:A2=A2+INT(RND(1)x19)-5 

839 IF A<X( 1 ) THEN X(1 )=X(I)-V(1I)/Q ELSE X(I)=X(1I)+V(1I)/Q 

849 IF A<A2+12 AND A>A2-12 AND B<B2+7 AND B>B2-29 THEN S=S+5:GOSUB 1499:PLAY ""。 
""。"L64S11M19908CD":A2=INT(RND( 1 )x145)+29:B2=-16 

859 IF A<X(I)+12 AND Ax>X(I)-12 AND B<Y(1)+7 AND B>Y( 1 )-15 THEN PUTSPRITE 【I ,(X(1) 
sY(I)):4:GOTO 1296 

869 PUTSPRITE 7,(9@,B3),2 

879 IF AX=1 THEN LINE(17.B3+8) -(AL,B3+8 ) , 8: AL=AL+19 

889. IF AL>169 THEN LINE(AL,B3+8 ) -(17.B3+8) ,19:AL=17:AX=9:AZ= 

899 IF B+16>B3+8 AND B<B3+8 AND AL-19>A THEN 1299 

999 R=STICK(ST ) 

919 Y(1I)=Y(I)+V(I) 

929 ON R GOTO 949.959 ,969,979,989.999,1999.1919. 

939 GOTO 1929 

949 B=B-4:T=T+1:GOTO 1929 

959 A=A+4:B=B-4:T=T+1:GOTO 1929 

969 A=A+4:T=T+1:GOTO 1929 

979 A=A+4:B=B+4:T=T+1 :GOTO 1929 

983 B=B+4:T=T+1:GOTO 1929 ・ 

999 A=A-4:B=B+4:T=T+1:GOTO 1929 

1999 A=A-4:T=T+1:GOTO 1929 

1919 A=A-4:B=B-4:T=T+1:GOTO 1925 

1926 IF T=2 THEN T=9 

1939 IF T=9 THEN PUTSPRITE T,(A,B),6:PUTSPRITE 1,(256.192) ,1 ELSE PUTSPRITE 1.,(A 
。B) ,6:PUTSPRITE 9,(256,192),1 

1949 IF STRIG(ST) AND Z<>9 THEN PLAY"07FEDC" :Z=Z- 1:A=INT(RND( 1)x159)+29:B=INT(RN- 
D(1)x174):LINE(239 , 159 ) -(259,168) ,2,BF:PSET(233,169) ,2:PRINT#1 .Z 

1959 IF A<39 THEN A=39 

1969 IF A>155 THEN A=155 

1979 IF B<29 THEN B=29 

1989 IF B>179 THEN B=179 

1999 IF Y(1)>199 THEN X(1I)=INT(RND( 1)x145)+29:Y(I)=-16:V(I)=INT(RND( 1 )x8)+4:C(1I) 
=INT(RND( 1 )x13)+2 ELSE 1199 

1199 IF B2>199 THEN A2=INT(RND( 1 )x145)+29:B2=-16:V=INT(RND( 1 )x8)+6 

1119 IF AX=9 THEN B3=B3+INT(RND( 1 ) *6 ) -3: AZ=AZ+ 1 

1129 IF AX=9 THEN IF B3>B THEN B3=B3-4 ELSE B3=B3+4 

1139 .IF AZ>19 THEN A※= 1 

1149 IF B3>175 THEN B3=175 

1159 IF B3<59 THEN B3=59 

1169 IF B2>199 THEN A2=INT(RND( 1 )x145)+29:B2=-16:V=INT(RND( 1 )x8)+6 

1179 NEXT:NEXT 「 

11@ PLAY"S8M39907CDE" : PLAY"S14M399":P=P- 1 :S=S+1:IF P=1 THEN Q=Q- 1:GOTO 799 ELSE 
1199 DATA 8,.18.1C,18.C,7、F,CF,39、E,3F,CF 、F,F、37.C3 

1299 DATA 19,.18.38,18.39,E9 、F9 .F3.C,79 ,DC,D3,D9 ,F9 . AC,C3 

1219 DATA 2.6.7、6.3.7.F,F,C9.3E,F,3F,CF,3F ,C7,3 

1229 DATA 49.69.E9.69.C9,E9.F9.F9.3,7C.D9 DC,D3.FC,A3,C9 

1239 DATA 83.6F,1F,1F,9F,7F,1F,1E,79.8F,3,1.3.E,12,4 

1249 DATA C1,F6,.D8,F8.E9.EE,E8.78.E,F1 .C9.89,C9,79.48,.20 

1259 DATA 18,.3D,7D.FF,F3,F1 ,7F,F,79.F1 .E3.E7,FD,FA,F2.69 

1269 DATA 18,BC,BE 補 F.,CF.8F,FE,F9.9F,8F,C7.E7 ,BF , 5F, 4F,6 

1279 DATA 91,.31.71.67.CF.DF,DF,FF.,7F,3F,7F,FF、FF.F9.FE,7F 

1289 DATA F9,F8,FC,FE,CE.DF,CF.F8,FC,FF,FE,FC,E9 .E9 ,FC,7E 

1299 PLAY ""。 "の" "L64S13M19906BAGFED":FOR D=9 TO 19:FOR T=9 TO 1:PUTSPRITE T,(A,B 
) 。6:FOR 0=9 TO 69:NEXT:PUTSPRITE T,(255,.191) ,1:NEXT:NEXT:W=w- 1:Z=3 

1399 LINE(23,139 )-(259,148) ,2,BF:PSET( 233, 139 ) ,2:PRINT#1 .W 

1319 IF W=@ THEN PSET(39,19) ,2:PRINT#1 "GAME OVRE":PSET(39,29):PRINT#1 、"REPLAY 9? 
(Y/N)":GOTO 1339 

1329 PLAY"O6CDE" : GOTO 636 

1339 IF S>HS THEN HS=S 

1349 FOR I=9 TO 6:PUTSPRITE !,(255、191).1:NEXT 1 
_1359 IN$= INKEY$ 

1369 IF IN$="Y" OR IN$="y" THEN LINE(28.19)-(159,39) ,2.BF:LINE(17,.B3+8 ) - (AL,B3+8 
) , 19:AL=17:AX=9:AZ=9:GOTO 616 

1379 LINE(17,B3+8 ) -(AL,B3+8 ) , 19: AL し = 17:AX=9:AZ=9 

1389 IF IN$="N" OR IN$="n" THEN CLS:END 

139@ GOTO 1359 

1499 LINE(219,69)-(255,68) ,2,BF 

1419 PSET(295,.69 ) 、2:PRINT##1 、Sx19 

1 429 RETURN 


レル た 】 


@ 頭 と 目 が チリ リッ と ファ イヤ レ そ フ 


テコ ズル 


FOR MSX (8 に K) 


摩 史 叫 ナ で ぶ 


Y 


重 な つ だ 文字 を 

ずばり あて よう . 
去年 の ポシェ ッ ト VOL4 の RUN RUN 
添削 教室 で 掲載 し た テコ ュ ズ ルッ パズル 。 


19 CLEAR399 , &HE N 

1)x44:DEFFNT=INT(TIME/69 ) : GOSUB99 : ADD= &H 
F199:GOSUB129 :SCREEN9 : WIDTH49:COLOR15,9: 
CLS: RESTORE199:FORI=9TO09 :READA$( 1 ) : NEXT 
FORI=1TO04:READQL( 1 ) , QT も (1 エ ):NEXT :FORI =48 ゝ 
092:Q$=Q$+CHR$( 1 ) :NEXT :C$=CHR$( 255 ) 
29 READE$,P$:KEYOFF:DEFUSR=&HF999 : DEFUSR 
1=&H156:LOCATE14.2.9:PRINT "テコ スル "スル" 
:GOSUB119:J=TIME\199:FORI=9TOJ:A=RND( 1 ) : 
NEXT:LOCATE13,19:PRINT"TIME=" 
39 FORI=29TO24:LOCATE9 , 1 :PRINTSPACE$( 39 ) 
s・NEXT:LOCATE8 , 29:PRINT " ト ~ ノ レベ へ ~ ル テ ~ ヤル (1 - 
4) 275: し =USR1(9):L=VAL( INPUT も ( 1 ) ) : IFL く 90R 
L>4THEN39ELSEIFL=9THEN89ELSEPRINTQT$(L) : 
LEV=QL(L ) 
49 FORI=1TO199:R=FNR+ 1 :S=FNR+ 1 : N$=MID$(Q 
$,R,1 ) :MID$ も (Q$,R, 1 ) =MID も (Q$,S, 1 ) :MID$(Q$ 
ぅ つ 。 1 ) =N$: NEXT : N も =MID も (Q$ (FNRx(45-LEV) )\ 
44+1 LEV):FORI=1TOLEV:A=USR(ASC(MID$(N$, 
! , 1 ) ) ) : FORJ=9TO199:NEXTJ,。 1I:TIME=9 
S59 T=FNT:R=FNR+19:PLAYP$:LOCATE18 , 19:PRI 
NTUSING" 提 提 提 拉 菩 "5T:T=ASC(INKEY$+" "):IFI=1 
JTHEN79ELSEIFI く 480RI >92THEN59ELSEIFUSR( I 
) >9THEN59ELSEPLAYE$:MN=LEVx2-(T\(2^LEV) ) 
・IFMN>8THENMN=8 


較 プ ロブ ラム の 説明 ・100 メッ セー ジ デ ー タ マ 
10 一 20 初期 設定 ・110 ゲー ム 用 の 四角 を 描く 
30 レベ ル 入 力 ・120 "キャ ラフ タデ ー タ を メモ リ に セ ・ 
40 問題 を 作り 、 出 是 ら ツ ト 
50 キー 入力 と 、 剖 定 ・ 画 変数 リス ト ・ 
60 再 ゲ ー ム の 要請 ・ 〇 OL(1) う て OL て 4)…… 各 レベ ル に 対応 レ ・ 
70 "。 ギブ アップ 処理 ・ だ 問題 の 重ね あわ せ 回 数 
80 全 キ ヤラ フタ の 表示 デモ ・OTS(1)ーOTS(4)…… 和 名 レベ ル に 対 
90 マシ ン 語 プロ プラ ム を メモ リ に : 記し だ 名 称 

書き こむ ・O 〇 OS( 〇 ) て の S(1 )…… 各 モー ド で 使う 


パズル 


画面 の 四角 の な か に 
字 を あて る ゲー ム だ が 、 重 な っ た 部 分 
は 白 黒 が 反転 し て し まう か ら や や こし 
い 。 今回 は で ぶ 先 生 に さら に 添削 し て 
も らい 、DATA を 短く し て も ら っ た 。 
RUN る せる と 、 ま ず ど の レベ ル で 


・ 文字 列 び 入る 。 〇 は 英 数 字 + 記 号 、 1 は * 
・ カタ カナ の モー ド 
・N お BS……OSCO), OS 1 ) の 中 身 を シャ : 
・ 使っ つて いる 


・ 和 T お …… タ イト ル 格 納 。 ゲ ー ム が スマ ター ト ・ 


io は 口 計 A 


「 s「J は O!(W 汗 人 


に 3 


や る か や きい て くる 。 
1 (初級 ) 一 一 2 文字 の 重ね あわ せ 
2 (中 級 ) 一 一 3 文字 の 重ね あわ せ 
3 (上 級 ) 一 一 4 文字 の 重ね あわ せ 
4 (ブロ) 一 一 6 文字 の 重ね わあ わせ 
と な っ て いて 、 4 の プロ レベ ル は ま 
すず 無理 。 こ の と き 0 を 入力 する と 、 全 
キャ ラク タ を 順番 に 表示 し て くれ る 。 
ゲー ム の と き に は CAPS LOCK が 必要 
どう し よう も な く 《 な っ だ た ら RETURN キ 
ー を 押 そ う 。 答え を 教 ん て くれ る よ 。 


現れ る 重なっ た 文 


69 MN=(MN<9 ) xMN+MN: LOCATE13,22:PRINTA$(M 
N) :LOCATE13,。24:PRINT "モウ イチ ト ~ ヤル (Y/N) 7 "5 : 1 
=USR1(9):1$=INPUT も (1):IFI$="Y"ORI$="y"TH 
EN39ELSEEND 
79 PLAYE$:GOSUB119:FORI=1TOLEV: FORJ=9TO1 
・A=USR( ASC(MID$(N$, 1 ,1 ) ) ) : FORM=9T0999:NE 
XTM,J,。 IT:MN=9:GOTO69 
89 GOSUB119:FORI=48TO92:FORJ=9TO1 :A=USR( 

1! ) :FORM=9T0499:NEXTM,J, 1 :GOTO38 

99 RESTORE99:READD$:FORI=9TO79:POKE&HF99 
9+T,VAL("&H"+MID も (D$ も 。Tx2+1 。2) ) : NEXT : RETU 
RN:DATA 21F8F7E5DD2E997ED639219999444F99 
2929299199F199EB215191DD26981A9698979E99 
39929EDFFS5CD4A99D629A92892DD2CC629CD4D99 
F12319E513D51 1299919D1DD2529D7E1DD7D7723 
36992BC9 

199 DATA オチ ャ ノコ サイ サイ 。 マ アマ ア タネ 。 ス コイ ! 1 。 ス コイ 
テ ~ スネ ー , シュ ウサ イ タ ~ 1 。 テ ン サ イ タ ~ 1 。 ヘ ンタ イ タ ~ ナ ? 。 キ チカ ~ イ 

カモ ネ ! 。 力 ミホ トリ テ ~ ス ! 。 サ トン ネン ! 。2 。 シ ヨ ョ キュウ, 3 。 チ ュ ウ キュ ウ 
。 4 。 シ ヨウ キュ ウ 。 6 , ファ ロ 。T159L1605CDEFCDEFCCCRFG 
BAFGBAFFF , "T255L64N=Ri " 

119 LOCATE14.6:PRINTSTRING$( 12.C$) :FORI = 
7TO16:LOCATE1 4 , 1:PRINTC$+SPACE$( 19 )+C$:N 
EXT:LOCATE14.17:PRINTSTRING$( 12.C$) : RETU 
RN 

129 SCREEN1 :FORI=9TO35 1 : POKEADD+ 1 , VPEEK ( 
&H189+1I):NEXT :RETURN 


・ SBS…… タ イム の 初期 値 
ES$…… ゲ ー ム オー バー 時 の サウ ンド デー・ MSC 〇 ), MS〈1 )…… 和 名 モー ド の 包 称 
・ M…… ゲ ー ム 中 の モー ド 

し EEV…… ゲ ー ム 中 の レベ ル 

ツ フ ル す る と き と 、 問 題 の 答え 格納 用 に ・ MN…… 表 示す べき コメ ント の 番号 

・ 一 チェ ッ フ ボ ポイント 

・ 90 行 の アー タ 文 の BB2151 の 51 を 4F に 、 
060807 の 07 を 0F 上 に 、 そ れ ぞ れ か える と 、 
表示 が 俳 文字 (を 右 反転 し た 文字 ) に な る 。 


PS…… ゲ ー ム 中 の ラン ダム ノー ト 


する と 、 イ イム の 一 時 記 簡 用 に 使用 し て 


ll ええ 由 y ヶ l サ l ヶ oo 


9 


カエ ル は や っ ぱり 


FOR ル SX sc 


あな に 帰る / 
る も 


BY 原田 淳 


4 上 の あな に 1 匹 は まつ て いる の が 、 
力 下 ルル で すず 、 一 設 。 


る 少 遊び 廊 
そう いえ ば 、 む か し ゲー ムセン ター 
ここ ん な ゲー ム が あっ だ っ け 。 


叶い 話 が 、 下 に 登場 する カエ ル を 、 
カー ソル ・ キ ー を 使っ て 、 上 の 5 つの 
あな 全部 に 入れ て し まう ゲー ム 。 

だ だ 、 入 れる まで に は 、 当 然 、 困 難 
な 道 が 待っ て いる 。 

まず 、 第 1 関門 は 3 匹 の エイ リア ン 
こ ゆ つ りら が 、 そ を 邊 ぞ れ ウパ マラ バラ の ス じ 
ー ド で 走っ て いる の で 、 ち ょ っ と タイ 
ミン ツク を まち が うと 。、 2 パッ グン を 食 あ 
(し て し まう 。 な ん と いっ て も 、 こ の ゲ 
ー ム は 、 2 回 し か ミス が 許さ る されない の 
で 、 そ うか ん だ ん に や られ る わけ に 


| IL _ I 本 HI MM | 』 IM WM 、 
『 て グリ ラマ て は 
シラ ま 原 10 甲 神 ト 遊 じ 
sm ョ ム す 田 ユ 郡 祭 は ん め 
sm | を 淳 | の 川 あ だ の l 
また 手 チ と きり う 邊 
sm な 52 天 ササ V る し ち 
ョ mk - ノ (| | の て は 
れん ポ ん て リグ ュ 
も で り を | 
mW よい ス 2 トム 
WW うろ な で た ソン 
に うど ゲン 
Em な ちら に し ト 和 
m ソ に の ム か な 
smP だ っ を し と 
W し ん て 3 朋 
7 5 り ゲ 買 
1 ん る 2 2 のり W 
W 。 党 プ ん - ム て 
mW え ロ 。 ン 。「 
AAES2SGSGCESSGS さ ささ さこ 


で 
〇 


> ジャ セン 、 ジ ャ ン 。 よ 
うつ や ぐ ぢ グ 匹 、 あ な に 入 
つ だ じ ォ ぇ 。 


いか な い 。 エ イリ アン 
の それ ぞ れ の 動き を 予 
測 し つつ 、 中 央 の 赤い 
帯 ヘ サッ サ と 行っ て し 
まお う 。 こ こ は 安 全 地 
帯 な の だ 。 

て 、 次 は 、 い よい よ 川 へ 飛び こむ 
ぞ 。 だ た だ し 、 も ちろ ん 、 川 に は 流木 が 
流れ て いて 、 こ れ に あたっ て も アウ ト 。 
それ に 、 川 の 流れ に カエ ル も 流さ る れ て 
し まう か ら 、 コ ント ロー ル が つけ に く 

。 川 の 流れ に ちょ っ と 人 逆らい な が ら 、 
流木 に も 気 を つけ な が ら 6、 上 に 5 つ な 
らん だ あな に カエ ル を つっ こま せよ う 。 
も し 、 ヨ シト 上 一 ル *・ ミス て 、 あ な じじ 
ゃ な く 壁 に あたっ て も まあ だ いじ ょ 2 
ぶ 。 カ エル は ちょ っ と は ね か えさ れる 
せ ど 、 死 に は し な い の だ 。 た だ 、 流 木 


あこ 匹 で 完成 。 ioW279 こ ご ん な と き に や られ や すい 、。 


面 ク リア で ボー 


シン クン / ん /。 


に あたり や すく な っ ちゃ うけ ど ね 。 

で 、 ま ず 1 臣 目 の カエ ル を 入れ た だ と 
し よう 。 次 、2 匹 目 、3 匹 目 …… と 入 
れ て いく て ん だ けど 、 も う カ エル を 入れ 
て し まっ だ あな に 別 の カエ ル を つっ こ 
ませ ちゃ うと 、 こ れ は ダス 。 ミス 1 に 
な っ ちゃ う の で 、 川 の 流れ や な ん か も 
老 え て 、 入 れ や すず すい よう だ た 考え ん よう ね 。 

カエ ル を 5 匹 、 あ な に 入れ る と 、 1 
ナス 20 点 プラ ス 。 

ジョ イ ・ ス ティ ッ ク 派 の キミ は チェ 
ッ ク ボ イン ト 参 照 で 改造 し よ う 。 


赴 選 バ ンプ が そう で し 庄 。 


29 

1 7) 

49 

S9 

69 

4 / 

89 

99 

199 
119 
1 20 
139 
1 49 
159 
169 
179 
189 
199 
299 
219 
229 
239 
249 
めで や 】 / 
260 
27 の 9 
289 
299 
390 
319 
329 
339 
349 
359 
369 
379 
389 
399 
499 
419 
420 
439 
440 
459 
469 
479 
480 
490 
S99 
S19 
S29 
ゃ 1 
S49 
ゃ お 】 / 
S69 
S79 
S99 
S99 
699 
610 
629 
639 
649 
659 
669 


" 疹 サ ロッカ"~- ト / 
' ゆ fOr MSX 2 
'G し / 
の の ツウ ツ ツ の サマ の の で の の の ぐ の 


SCREEN2.9:COLOR15,.4,1:M=2:SC=9:F=9 


SPRITTE$(9 ) =" く ス ~ く くく て " 
SPRITE$( 1 ) ="@ く て の めこ く 9" 
SEPRITT 届 (2) ョ ツマ ペデ ペペ ペペ 2 


GOSUB 859 


OPEN "GRP: "AS##1 
ONSPRITE GOSUB399 


X=199:Y=175:X1=299:X2=1:X3=159:X4=1:X5=1:X6=1 


FORI=1TO10999:NEXT 


ら S=STICK(9 ) 
SPRITEON 


IF Y く 99ANDX く 225 THENX=X+3 


IF S=1ANDY>1THENY=Y-9 


IF S=S5ANDY く 175THENY=Y+9 
1F S=3ANDX く 225THENX=X+9 
IF S=7ANDX>1 2THENX=X-9 


P=POINT(X,Y) 
IF Y く 19 THEN 479 


IF P=12THENY=Y+11:PLAY "S9M3999L16E" 
X1=X1-5:X2=X2+18:X3=X3-8.5:X4=X4+7:X5=X5+13:X6=X6+20 
)。11.9 


PUTSPRITE9,(X,Y 


PUTSPRITE1 。(X1。164 ),4。,1 
PUTSPRITE2。(X2。144 ).9。1 
よる 。 1 


PUTSPRITE3。(X3。126 
PUTSPRITE4,(X4.28 
PUTSPRITE5 ,(X5。49 
PUTSPRITE6 ,(X6,74 
GOTO 199 


SPRITEOFF :PUTSPRITE9 , (9,299) , ,9 
PLAY"S9M4999L16AFDCAFDCGG" , "B" 


FORI=1TO1999:NEXT 


LINE(115,199)-(189,119) ,13,BF 
M=M- 1:PRESET( 129 ,199) :PRINT#1 ,USING" カ エル - 拉 "1M 


IF M=9 THEN799 
GOTO 169 


SPRITEOFF 


PLAY"S9M3999L16BDAFEGBCEABCDGFEGCC. " 

1F 22 く XAND33>XTHENPUTSPRITE9 , (9,209) , ,9:PUTSPRITE19,(24,15) ,11 
IF 67 く XAND78>XTHENPUTSPRITE9 , (9,299 ) , ,9:PUTSPRITE11,(79,15) ,11 
IF 117 く XAND128 >XTHENPUTSPRITE9 , (9,299) , ,9:PUTSPRITE12,(129,15) 
IF 13S く XAND199 >XTHENPUTSPRITE9 , (9,299) , ,9:PUTSPRITE13,(179,15) 
1F 222 く XAND238 >XTHENPUTSPRITE9 , (9 , 299) , ,9:PUTSPRITE14,(225,15) 


) 
) 
) 


$ 


す $ 
$ 


13。2 
13。2 
13。2 


PLAY"S8M3999L16CCCCAC" 


ド =F+ 1 :SC=SC+2 


$ 
$ 
9 
$ 
$ 


り 
り 
1 
1 
] 


1 9 
1 ,9 
1 ,9 


LINE(199,199)-(25 る ,119) ,13,BF:PRESET(195,199):PRINT#1 。USING"POINT-#"jF 
LINE(1,.199)-(79,119) ,13,BF:PRESET( 9 , 199 ) : PRINT#1 ,USING"SC- 提 半 半 "SC 


1F F=5 THEN 616 
GOTO 169 


SPRITEOFF :F=9 
FORI =9TO1 4 


PUISPRITEI 。(9,209) 、.0 


NEXT 


PLAY"S19M4999 CCDDEEFFGGAACCGGCCAACGCCAAGCCCGFEDC. " 


らし じ = ら C+ 2 


ケロ ッ ガ ー の つづ き 


FORI=1TO1999:NEXT 

GOTO 169 

SPRITEOFF 

FOR 1=1T02999:NEXT 

FOR 1l=9TO1 4 

PUTSPRITE1I (9,208 ) 

NEXT 

PLAY"S19M1999C.CCCCGEEDC..“" 
PRESET(45 7 すす):PRINT 提 1 、"%※%※※ GAME OVER ※※※ り 
IF SC>HI THENHI =SC 
LINE(1,199)-(255,119),13。BF 
PRESET(159.199):PRINT 拉 1 USING"HTI - 壮 韻 提 半 半 持 "5H1 
PRESET(29,199):PRINT#1 USING"SC- 壮 提 半 后 寺 "55C 
CLOSE#1 

IF STRIG(9)=-1THEN79 

GOTO 829 

LINE(1,1)-(259,199),4,BF 

LINE( 1 1 )-(250 25) 12.BF 
LINE(1.95)-(255.115) 68,.BP 
LINE(1.115)-(2509.199),1,BFE 
LINE(25,19)-(39,25) ,4,.BF 
LINE(129.19)-(125、25) ,4,BP 
LINE(179.19)-(175,.25) ,4.BF 
LINE(225.19)-(239 ,25) ,4。BF 


RETURN 
画 変 数 リス ト ・ 較 プ ロブ ラム の 説明 ・ 260-280 カエ ル が 穴 に 入 つ た ・ ほのぼの と し て いい で す な ~。 
M…… カ エル の 数 ・ 10- 60 REM 文 5 か の 判断 ・ 3 びき の エイ リア ン は 、 ど う 見 
SOC…… ス コア ・ 70 初期 設定 ・ 290-370 各 キ ャ ラン 物 動 ・ て も だ だ の 車 だ こい う 声 も あり 
F …… 穴 に 入 つ た カエ ル の 数 : 80-100 スプ ライ ト 定 義  ・ 380-450 ミス 時 の 処理 ・ ます が ……。 
X…… カ エル の X 座 標 ・ 110-130 画面 表示 サブ ルー チ ・ 460-590 カエ ル が 穴 に 入 つ だ : と ころ で 、 カ エル の 数 を 増し 
Y…… カ エル の Y 座 標 e ン ヘ へ と き の 処 理 、 得 点 等 ・ だ い 人 は 、70 行 の M= ニ ク の 数 値 
X1X3…… エ イリ アン の X ・ 140 ファ イル を 開く  ・ 表示 ・ を か えて ぐだ さい 。。 

座標 ・150 ミス の 判断 ・ 600-680 面 ク リア 判断 、 処理 ・ また 、 ジ ヨイ ステ ィ ツ で 遊 
X4ーXG 流木 の X 座 標 ・ 160 一 170 名 キャ ラク フタ の 初期 ・ 690 こ 830 ゲー ム オ ー バ ー ・ ぴ び だい 人 は 、190 行 S=ST IC 
SPRITES(0)…… カ エル 座標 ・ 840-940 画面 表示 ・K (の ) ,820 行 て STRIG ( 
SPRITES$(1)…… エ イリ アン : 180-250 キー 入力 、 カ エル 移 ・ チ エッ フ ポ イン ト ・ の ) の の を 1 に 変更 し て くだ さ 
SPRITES$(②)…: 流 林 重 ・。 うてん MSX 的 な ゲー ム で す 。 : い 。 (エイ キチ ) 


計 = MSX の まえ に こす わる だ け で 
いろ ん な お 情報 が は いつ て こる / 


パソ コン 通 


パソ コン 同士 で 通信 で きる の を 知 つ て : の あい だ で は や つて る み だ い だ よ . : ター ユニ ッ ト や モデ ム ( 変 復調 器 ) が 今 
いる か な 。RS-232C イ ンタ ー フ ェ イ ス : 日 本 で も 、 キ ヤ プ テ ン シ ス テム (情報 : 秋 か ら 発売 され る 予定 だ 。 こ れ が 一般 化 
音響 力 プラ を 使え ば 、MSX 同 士 を 電 : セン ター と 家庭 を 電話 回 線 で 結び 、 天 気 : する と 、MSX は お 父さん や お さ ん の 
語 回 線 で つない で プロ グ ブラム や デー の : ・ ニ ユー ス ・ 生 活 情報 な ど を 提供 する ) : 政 需 品 に な る か も し れ な いね 。 
交 拠 が で きる 。 だ だ し 、 こ こま で だ と 漢 : に 対 葉 し て 、MSX コ ン ビ ユー タ を キヤ : [ 
字 の 通信 は 無理 で 、 ア ルフ ァ ベ ツ ト ・ ひ : プ テ ン 端末 と し て 利用 する だ め の ア ダ プ ・ 凍 
ら が な ・ カ タカ ナ ま で 。 と ころ が 東芝 の : 同 シン ン 
-HX-20 シ リー ズ に 内 蔵 き まれ て いる 漢字 : ン 可 - oi 


ae ue "パウ コン 戸上 こ 人 マ バ 
ワー プロ 「 漢 字 君 」 に は 文書 通信 モー ド : と は ん ナッ い ホ ビー 


が あつ て 、 漢 字 文 書 の 送 ・ 受 信 が 可能 だ 。 ・ 


NN 


アメ リカ で は 、 だ いふ まえ か ら パ ソコ ・ 、eysEi RSE | 
ン と 電話 回 線 を 用 い だ オ ン ラ イン ・ サ ー - KRETIKSyY で 


ピス が 司 ん で 、 文 献 目録 ・ 航 空 スケ ジコ : 送信 0 
ー ル ・ 就 職 情報 と いつ だ 多種 多様 な デー ・ 

タベース を / パ パソ コン で 利用 し て いる けれ 
ど 、 日 本 で も も つ 実 は 一 部 の マニ ア た だ ち 


究極 の マザー シッ プ を 破壊 せよ / 


Lg」| 1 コラ も を .< 


Ja し っ 
し 


的 - SHHEEP 


ピュ 


に 5 Ga 1 ヨコ 1 コト 4 
BHTW ESP て ] コ 区 EE ザ 
< で うぅ 全う 馬 る 1 3 9 LUL 


^ ど っ で 9。 < な ん と な く 、 大 き な 飛 
行 機 が お じ ぎ し て る よう に 見 えな いや 


や 、 遊び 方 


KUN す る と 、 ち ょ っ と ハイ テッ ク な 
ムー ド の タイ トル 画面 。、 ス ペー ス ・ キ 
ー で ゲー ム ス タ ー ト が だ 。 

カー ソル ・ キ ー で 目 機 を 操作 し て 、 


4 相 う ち に な る か ……。 ち ぢ ちよ つと で も 
早く あ だ つ だ ほう が 負け に な る 。 


9 下 5 の 認 還 計 陳 ( 導 ) 大 [ 還 ( 天 生 末 | 了 馬 55 (9 昭 5 哨 全 豆 地 頃 > 
『 マ ゲイ Aaー 
| | ミ 法 の は 
10 ム ン で ゲ が 何 和 
lm を が グ ま 」 を 』 
iM ム を っ ほ 
5 も 人 W 
し る 方 験 8 
ます と と と は 生 
W る 思 だ と な 
まとう よ な ん 人 引 
し いい 人 さる た だ 邊 
呈 い は そ ぞ サ ベ よ 和 
mW よ 4 れ く し 
2 ルイ ん 
る 6 邊 
8 0 ら トン W 
2 ケ さ 
の こ ウン て 
WNW M の タ な 
い # 


【 3 3 E 5 1 3 5 は 8 3 5 5 2 8  : & 


FOR ル 1SX 


1 面 に つき 10 機 の 敵 を や っ つけ よ 2 う 。 
ミサ イル は スペ ー ス ・ キ ー。 自 機 の コ 
ント ロー ル は 加速 する よう に な っ て い 
る の で 、 慣 れ な いう ち は ち ょ っ と 上 難し 
いか も 。 で も 、 そ こ が お も し ろ さ に も 
な っ て いる の だ 。 

1 面 か ら 5 面 まで 、 敵 の 攻撃 は パタ 
ー ン が 変わ っ て 〈 く る 。 ま ず 、 1 面 は 敵 
が 上 か ら 出 て き て 、 下 まで 行っ て し ま 
う と 反転 し て 下 か ら 攻 撃 し て くる (し 
か も 自分 は 下 に 攻撃 で き な い /)。 2 面 
で は いき な り 下 か ら 敵 が 出 て くる 。 3 
面 で は 、 ス ピー ド も 早 
く 〈《 ミサ イル も サイ ド ワ 
イン ダー に 変化 。 4 面 
で は その うえ ぇ に 敵 が 下 


pg プシ ャ ヤーン 。 や られ て 
も うだ 。 で も まだ / 機 も 
ある か がら いい も 一 ん 。 


マジ ヤー ン 。 ーー ジジ 
ツ プ 登 昭 。 う 、 う 、 うう 
わけ も な ぐ ご こわ い | 


ア 7//JILLUU い パ 
ルー 粒 い 


7 ナナ | 
NN 


- 個 叫 6 
し し HU 


BY 佐藤 昌樹 


か ら 出 て き て 、 も う メ チャ クチ ャ 。 そ 
し て 、 5 面 て は 、 ス ピー ド は あがり 、 


し か も 敵 は 上 か ら 出 た り 、 下 か ら 出 た 
り 2 5 
5 面 で は 、 最 後 の ほ うに 、 ど で か い 


マザー シッ プ グ も 現れ る 。 こ いつ を し と 


め れ ば プロ ジェ クト 成功 。 も し 、 逃 ヵ 
し て し まっ だ ら も う 1 度 5 面 を は じ め 
か ら や り 直 すこ と に な る ぞ 。 
5 面 全部 クリ ア 
ー ナ ス 点 。 
ジョ イ ・ ス ティ ッ ク で も 遊べ る よ 。 


し た だ たら 、 ど る っ と ボ 


きす お 


生生 世 


19 SCREEN2.2.9:OPEN"GRP: "AS##1:DEFINTA-Z 
29 HS=9:RESTORE569:FORL=9TO12:A$="":FORI=1TO32: READB$: A も =A$S+CHR$ も (VAL("&H"+B$ ) ) :S 
PRITE$(L)=A$ も SENEXT TL 
39 COLOR 15,1,.1:CLS:LINE(9,9)-(256,192),7。B:LINE(19.19)-(246,182) ,7,B:FOR1=9TO2 
49 PSET(199-1I,39) ,1:PRINT#1 "PHOENIX" :PSET(48-I,179),1:PRINT#1。"(C) 1984 MASAKI 
SATOH" 

59 PSET(89-1 ,159) ,1:PRINT 失 1 "HIT [SPC] KEY" 

69 PSET(195-1,87) ,1:PRINT#1 , "M.SHIP":PSET(84-I,139),1:PRINT#1 "SHIP" 

79 PSET(135-1I,139),1:PRINT#1、 "ENEMY "ENEXT 

89 PUTSPRITE9,(119,59) ,14:PUTSPRITE19,(126,59),14:PUTSPRITE11,(119,66),14:PUTSPR 

ITE12,(126,66),14 
99 PUTSPRITE9 , (99,195) ,14:PUTSPRITE1 ,(99,195),15:PUTSPRITE2 (144,195),7 
199 ST=STRIG(9)+STRIG(1):IF ST THEN S=9:TP=9:NK=19:ME=1:GOTO 119 ELSE 1099 
119 ON ME GOSUB 849,.849.859.859.869:CLS:BY=1:BX=RND( 1 ) ※223+ 1 
129 FORI=9TO13:PUTSPRITEI ,(257,193) ,9:NEXT 
139 LINE(19,179)-(242.191),1.BF:LINE(19.179)-(242.191).9,B:LINE(9,9)-(256,192) , 1 
SB 
149 FORI=9TO02:PSET(29-1I,181),1:PRINT#1 "SHIP: "EPSET(142-T。181),1:PRINT#1 "SCORE: 
"kNEXT:GOSUB 899 
159 PSET(99,89):PRINT#1 , "PROJECT "iME:PSET(199,129) 9:PRINT#1, "STARTIIVEIF ME=4 0 
R ME=2 THEN TI=TI+3 
169 PSET(99,199) ,1:PRINT# せ 1.A$iTIi": 99":LINE(78.77)-(175.139) ,CO,B:FORI=9TOS59099: 
NEXT 
179 LINE(78.77)-(175,139) , 1,BF:FORI=19TO177STEP15:LINE(9,1)-(254,1),CO:NEXT 
189 FORI=19TO246STEP15:LINE(IT,1)-(T,177) 。CO:NEXT 
199 A=129:B=199:C=9:D=-3 
299 X=RND(-TIME)x249:Q=E:Y=9:CH=2:MS=9:MI=9:IF ME=2 OR ME=4 THEN Y=193 
219 IF ME=5 THEN L=RND(1)※2:IF L=9 THEN Y=193 
229 PUT SPRITE 9,(A,B) ,14:PUT SPRITE 1,(A,B),15:W=STICK(9) OR STICK(1) 

239 C=C+(W=6)+(W=7)+(W=8)-(W=2)-(W=3)-(W=4):D=D+(W=8)+(W=1)+(W=2)-(W=4)-(W=5)-(W 
=6 ) 

249 IF C=>19 THEN C=19 ELSE IF D=>19 THEN D=19 

259 IF A+C= く 9 OR A+C=>249 THEN C= 

269 IFB+D= く 9 OR B+D=>163 THEN D=9 

279 IF ME=5 AND TP>=9 THEN GOSUB 879 

289 EX=(X>A)-(X く A) :EX=EX※4: XX=X+EX 

299 PUT SPRITECH,(X,Y) ,7 

399 IFY=>B+59ANDCH=2THEN319ELSE339 

319 Q=-E:CH=5:PUTSPRITE2,(9,9),9:PUT SPRITE3,(X,Y) ,7:FORI=9TO199:NEXT 

329 PUTSPRITE3,(9,193) ,9:PUTSPRITE4,(X,Y),7:FORI=9TO199:NEXT:PUTSPRITE4 ,(9,193 ) , 
り 

339 IFY= く <B-59ANDCH=5THEN349ELSE369 

349 CH=2:Q=E+4:PUTSPRITE5 , (9,193) ,9:PUTSPRITE4。(X,Y),7:FORI=9TO199:NEXT 

359 PUTSPRITE4 ,(9,193) ,9:PUTSPRITE3,(X,Y),7:FORI=9TO199:NEXT:PUTSPRITE3, (9,193) 。 
り 

369 IFA+19>X AND A-19 く <X AND B+19>Y AND B-19 く <Y THEN 799 

379 IF MI=1 THEN 4099 

389 IF A+19=>X AND A-19= く <X THEN MI=1:Z=X:U=Y ELSE 449 

399 IF CH=2 THEN G=12 ELSE IF CH=5 THEN G=-12 

499 IF ME<3 THEN 419 ELSE IF Z<A THEN Z=Z+3 ELSE IF Z>A THEN Z=〆-3 

419 U=U+G:PUTSPRITE7 。(Z,U),15 

429 IF A+19=>Z AND A-19=<Z AND B+19=>U AND B-19= く < く U THEN 799 

439 IF U=<9 OR U=>192 THEN MI=9:PUTSPRITE7 ,(9,193) ,9 

449 ST=STRIG(9)+STRIG(1 ):IF ST AND MS=9 THEN MS=1:MX=A:MY=B ELSE 469 

459 PUTSPRITE8,(A,B+16) ,9:FORI=9TO199:NEXT:PUTSPRITE8,(9.192),9 

469 IF MS=1 THEN MY=MY-19 ELSE SS9 

479 IF ME>=3 AND MX<X THEN MX=MX+2 ELSE IF ME>=3 AND MX>X THEN MX=MX-2 

489 PUTSPRITE6 , (MX MY ) , 15 

499 IF MY=<9 THEN PUTSPRITE6 , (9,9) ,9:MS=9 

599 IF X+19=>MX AND X-19= く MX AND Y+19=>MY AND Y-19= く MY THEN S=S+199+RND( 1 )X49+19 

ELSE SS0 
519 RESTORE699 :FORI=9TO13:READD: SOUNDI ,D:NEXT :PUTSPRITE7,(9.193) ,9:PUTSPRITE6,(9 
。193) ,9 
529 FORI=YTO192:PUTSPRITECH, (X, 1T),7:PUTSPRITE8,(X,1) 9:NEXT 


539 TP=TP+1 : IFTP= 19ANDME く >5THENME=ME+ 1 : TP=9: IFME=6THENME= 1 :GOTO 119 ELSE GOTO1109 
549 FORI=9TO1999:NEXT:GOSUB 899:GOTO 209 

559 Y=Y+Q:A=A+C:B=B+D:GOTO 220 

569 DATA99,99,99,99,99,99,99,92,92,92,.92,92,99,99,92、92,89.89,89、89,89,49,41,E1, 


F9,FF,FF,7F,49.49,79,F8 


579 


DATA91,91.91,91,91,.92,.82.87,9F,FF,FF,FE, 92,92 ,9E,1F ,99,99,99,99,99,99,909,99。 


99,99,99,99.99,99.99,090 


589 


DATA1F,9E,92,.92,FF,FF,FF, 3F ,27 ,22.92.91 91,.91.91,91,F8,79,49.49,FF,FF,FF,FC。 


E4 ,.44.49.89.89,89,89,89 


S99 


DATA91.91,91.1F,9F,93,FF,3F ,92,92.91,91,99,99.99,99.89,89,89,F8,F9,C9,FF,FC, 


49,49,89.89.99,99,99,09 


699 DATA91 ,91.91.91.92.1E,93。FF,91 .99、99,99,99、99,99,99,89,89,89.89,49。78.C9。FF, 
89,99,99,909.,9 り 99,99,99 

619 DATA91 .91,.91.91.91,93,.23.27,3F 。5F ,DE , DF , 93,93,9C,1E,89.89,89,89,89。C9,C4,E4。, 
FC,FA,FB,FB,C9 ,C9 , 39 ,78 

629 DATA91.91,.91.93,.91.91.91 91.91.91.91.91 93,93,93,.93,89,89,89,C9,89,89,89,89, 
89,89,.89,89,C9 ,C9 ,C9 , Cg 

639 DATA91,91,91.91.91.91.91,91.91 91.91.91 91.91 91.91.89.89,89,89,89,89,89,89。 
89.89,89.89,89,89,89,89 

649 DATA81.91.92.25,55,D5,A9.35。A5,5B,6C,11.9A,95,.81,92,C1,49,A4,74.A9,94,A5,75, 
22.54.92.A9,C8,209,59 ,A9 

659 DATA99,99,99,99,099,99,.99,99,99,9 り 9,99,99,99,99.99,99,91.91.91,.91.91.91.93,.FB, 
FA,FA,3A,96,96.,.96.,97,97 

669 DATA89,89,.89.89,89,89,C9,DEF, 5F ,5F,5C,69,69,69,E9 ,E9 , 99,99,99,99,99,99。99,99, 
99 ,99,99,99,99,909.,.99,099 

679 DATA9F,FF,FF, 7F,9D,99,1E,99,99,99,99.99,99,99,99,99,FB,FB,FB。FB,FB,67,97,F7, 
97,97,97,95,96.93,.91.,.099 6 

689 DATADF,DEF,DF,DF,DF,E6,E9,EF,E9,E9,E9,A9,69,C9.89.99。F9,FF,FF,FE,B9,99,78,99, 
99 ,99,99,99,99,99,99.099 

699 DATA9,9,.9,9.9,9,21.247,16.9,9,199,69,9 

799 RESTORE699:FORI=9TO13:READD : SOUNDI , D:NEXT : NK=NK- 1 : PUTSPRI TE7 , (9 , 193) ,9:PUTSP 
RITE6,(9.193) ,9:IF NK=9 THEN 739 

719 FORI=BTO192:PUTSPRITE9 ,(A, IT),14:PUTSPRITE1 ,(A, 1 ) ,15:PUTSPRITE8 。(A, 1 ) 。9:NEXT 
729 GOSUB899:GOTO 199 

739 COLOR7 1 。1:CLS:FORI=9TO12:PUTSPRITETI ,(9,193) ,9:NEXT :FORI=9TO13:SOUNDI , 9 : NEXT 
749 LINE(9.9)-(256,192).7.B:LINE(19,19)-(246,182) ,7,B:FORI=9TO2:PSET( 73-1 ,69 ) , 1 : 
PRINT#1 、"GAME IS OVER" 

759 IFS>HSTHENHS=S:FORL=2TO15:COLORL :PSET (45,149):PRINT#1 ,。 "YOU MADE HIGH SCORE! " 
・NEXT 

769 COLOR 7:PSET(69- IT,89):PRINT##1 。 "HI -SCORE IS" :HS 

779 PSET(53-I ,199) ,1:PRINT#1 "YOUR SCORE IS"iS 

789 PSET(53-1 , 129 ) , 1 :PRINT#1 , "START IS [SPC] KEY":NEXT 

799 ST=STRIG(9)+STRIG(1):IF ST THEN 39 ELSE 799 

899 FORI=9TO13:SOUNDI ,9:NEXT :SOUND 8,13 

819 FORL=2TO12:PUTSPRITEL , (9 ,193) , 9 : NEXTL 

829 LINE(69,181 )-(84,199) , 1 ,BF:PSET (69 ,181 ) , 1 : PRINT# せ 1 ,NK 

839 LINE(198,181 ) - (249,199) , 1 ,BF :PSET( 199,181 ) 。 1 :PRINT#1 。S: RETURN 

849 C0=4:E=4:TI=8:A$= "AM":RETURN 

859 CO0=9:E=5:TIT=2:A$ も = "PM" : RETURN 

869 CO=3:E=6:TI=8:A$="PM" : RETURN 

879 PUTSPRITE9 , ( BX , BY ) , 1 4 :PUTSPRITE19.,(BX+16, BY ) , 1 4 

889 PUTSPRITE1 1 ,(BX,BY+16) ,14:PUTSPRITE12。(BX+16,BY+16) ,14:BY=BY+3 

899 IF MS=1 AND BX+24>=MX AND BX-5<=MX AND BY+24>=MY AND BY-5<=MY THEN 919 

999 IF BY=>192 THEN 989 ELSE RETURN 

919 RESTORE699:FORJ=9TO13:READD : SOUNDJ , D : NEXT 

929 FORI=2TO14:PUTSPRITE9 , ( BX , BY ) , I : PUTSPRITE19,(BX+16., BY ) , 1 : PUTSPRITE1 1 , (BX , BY+ 
16),I:PUTSPRITE12 。(BX+16 ,BY+16 ) , I : NEXT 

939 FORI=9TO12:PUTSPRITE1I 。(257 。193 ) ,9: NEXT 

949 FORI=9TO3:COLOR ,9:CLS:COLOR ,1:CLS:NEXT :FORI =9TO2 

959 PSET(59-1I,59) ,1:PRINT##1 "PROJECT IS SUCCESS !" 

969 PSET(99-I,79) ,1:PRINT#1 "YOU WIN !1":PSET(58- 1 ,99) , 1 :PRINT#1 , "BONUS 1999 \ A 
LPHA " : NEXT 

979 FORI=9TO7999:NEXT :ME= 1 :TP=9:S=S+1999xNK:GOTO 1169 

989 FORI=9TO12:PUTSPRITE1 , (257 ,193) ,9:NEXT :FORI =9TO03:COLOR ,4:CLS:COLOR ylSCLS 
999 NEXT:FORI=9TO2:PSET(69- 1I,59) , 1 :PRINT 半 1 "PROJECT IS MISS !" 

1999 PSET(89-1I,79) ,1:PRINT#1 "TRY AGAIN !! "EiNEXT:FORI =9TO7999 :NEXT :TP=9 : GOTO119 


画 変 数 リス ト ・ MXIMY…… 自 機 ミ サイ ル の 座 ・ 440-500 自 機 ミ サイ ル 処 理 ・ ニ 1 の を 変更 し て 自 機 の 数 を 増 
ス ヨ コア 標 ・ 510-550 敵 機 の 爆発 : し て ぐ 定 さい 。 
… 到 墜 数 ・ U, ZZ…… 英 機 ミ サイ ル の 座標 ・ 560-680 キヤ ラフ タデ ー タ  ・ で も 、 あ ん まり 増やす と オー 
| 自 機 の 数 ・ M1…… 敵 ミサ イル が 出 て いる : 690 効果 音 デー タ ・ パー フロ ー に な つちや ゃ う よ 。 
… 面 数 - か ・ 700-720 ミス の 判断 、 処 理 ・ また だ 、 画 面 の ス フ ロ ー ル や 、 
…… STRIQ 入 力 用 ・ MS…… 自 機 ミ サイ ル が 出 て い : 730-790 ゲー ハム オ ー バ ー : 自 機 を 反転 させ る よう に 改造 し 
自 機 の X 護 標 ・ る か ・ 800 一 860 画面 表示 ・ て も お も し ろ い と 思い ます よ 。 
自 機 の Y 座 標 ・ 較 プ ログ ブラム の 説明 ・ 870-1000 マザー シッ プ 表 示 どう で も いい こと で す が 、 飛 
自 機 の X 座 標 増分 ・ 10-100 タイ トル 画面 ・ 較 チ エッ フ ボ ポイ ント ・ 行 機 な の に 、SHIP と な っ て い 
D…… 自 機 の Y 座 標 増分 ・ 110-140 初期 設定 ・。 キャ ラフ タ 、 サ ウン ド 等 も な :・ る の は 、 お か し いと いう 声 が 編 
HS…… ハ イス コア ・ 150-210 画面 設定 ・ な か よく で き て いる ゲー ム で ・ 集 部 内 か ひら 上 が り ま し た が 、 作 
W…… キ ー 人 用 ・ 220-260 自 機 移動 ・ すね 。 ら 面 に な る と マザー シ ツ : 者 の 意志 を 韓 重 し て SHIP の ま 
X…… 敵 機 の X 座 標 ・ 270-360 敵 機 移動 ・ プ が 登場 し ます が ガ 、 そ こま で 行 ・ まで 掲載 し ます 。 (エイ キチ ) 
Y…… 英 機 の Y 座 標 ・ 370 一 430 敵 ミ サイ ル 処 理  ・ け な い と いう 人 は 、100 行 の NK ・ 
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@ モ ンダ と モン ズ スズ ダー の アク ショ ン バ パズル 


CE 


プロ ッ ク 


sr ひ CK 


FOR MSX (16 に K) 


Y 石原 誠 斉 ナ で ぶ ナ YU が / ツ 


色 ) に つか ま ら な いよ うに モン タ ( 赤 
色 ) を 動か し 、 ア イス プ ブロッ ク を 上 の 


最 軸 コン ビ の ゴー ル に 入れ れ ば いい ん だ けれ ど 、 で 
走 / の スグ クー ム / 未 先 生 と YUKI ち ゃ ん と いう 最強 コン 

ポシェ ッ ト の 85 年 No.1 の 添削 教室 で 
登場 し た の こ ゲ ー ム 。 モ ンス ター -( 黄 


ビビ て 作っ うだ だ に 、 
っ せつ か し い / 


3 面 を 超え る と む 
だ っ た 3 匹 の モン 


4 モン スタ ー は ニコ ニコ 笑っ つて る ヤツ 。 な ん が 不思議 な 感じ ける な あ 。 


ヽ さい は SI 見 ゴン り 蒼 94 ロロ EE 


証 大 OOFD _mO 一 / り りさ 叶 計 回 人 州 O!A 


を 6 


タ で 12 面 全部 クリ ア で きた ら ( 面 ク リ 
ア す る と 一 匹 ふ える けど ) は っ きり い 
っ て 天才 で す 。STOP キ ー で 止ま る か 
ら 、 じ っ くり 考え て か ら と りく むと い 
いね 。 

で も 、4 面 か ら は 、 ち ょ っ と し だ テ 
クニ ッ ク を 使わ な が いと クリ アー で き な 
い 。 せ っ か 〈 く だ か ら 公 開 し て お こう か 
な 。 え 一 、 ブ ロッ ク は 通り ぬけ られ な 
いけ れ ど 、 ア イス プ ブロッ ク は 通り ぬけ 
られ る 。 だ か ら 、 そ の まま で は アイ ス 
ブロ ッ ク を 動か せな いよ うな と ころ で 
も 、 一 度 ア イス プロ ッ ク を プ ブロッ ク に 
お し つけ 、 ア イス ブロ ッ ク の 中 を 通り 
ぬけ て 別 の 黒 の 部 分 に 移動 する と うま 
〈 反 発し て アイ スプ ブロ ッ ク が 動く …… 
場合 も ある 。 4 面 は ちょ っ と この 技 を 
使わ な が いと クリ ア で き な い か ら 、 よ ーー 
( 考 ん て みょう 。 

つい で に 、 モ ンタ を 好き な 数 に する 
に は 、1010 行 の MO を 好き な 数 に すれ 
ば いい 。 ま た だ 、 好 き な 面 に する に は 同 
じ 1010 行 の ME を 好き な 数 に する こと 。 

さて 、 こ の ゲー ム で は 図 -1 の よう 
な 面 作成 用 紙 を 作れ ば 簡単 に 面 を 作る 
こと が で きる ( 図 -2 参照 の こと )。 面 
を 増やし た ら 3120 行 以後 に デー タ 文 と 
し て 面 の パタ ー ン を 置き 初期 化 ル ー チ 
ン の 130 行 の PM の 数 に 増やし た 面 数 
を 加え れ ば よい 。 

アク ショ ン 二 パズル ゲー ム っ て 、 こ 
の ご みろ はやっ て ん だ よね 。 


図 -1 画面 作り 用 紙 フ ォ ー マ ッ ト 図 -2 画面 デー タ の 取り 廊 
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例え ば ③④ ( 1 面目 の パタ ー ン ) の 8 段 目 に 注 
目 。 こ の 部 分 を 左 か ら 順 に 面 作 り 用 紙 フ ォ ー マ 
ッ ト の 太線 で 4 分 割 (いち ば ん 左 は 1 マス だ け 
に な る ) し て 、 縦 に な ら べ る と ⑥ め よう に な る 。 こ れ を 、 (< の 2 進 16 進 変換 表 
で 1 つ 1 つ 数 字 に する と 1D0A に な る 。 こ れ が 3 の 8 段 且 の デー タ だ 。 こ の よう 
な 作業 を 1 段 目 一 9 段 目 ま で 行え ば いい わけ だ 。 そし て 、 デ ー タ の 最後 に モン タ 
(⑳⑯)、 ア イス プ ブロック (⑥)、 モ ンス ター(⑥) の 順 で 初期 位置 を 付け 加え れ ば で 
き あ が り 。 例え ば ④ の デー タ は 、0080008F.009001800020002000A1.1D0A020 
41149466 と な る 。 1DO0A が 8 段 目 の デ ー タ 、 末 尾 の 6 個 の 数 字 が 3 つの キャ ラク 
タ の 初期 位置 だ 。 


一 プロ ブラ ム の 説明 。 ーー ・ 較 変数 リス ト 


活 洪 材 麻 さ い 


10 一 80 注釈 行 ・ 1250-1270 入力 を 〇 3 の 番号 に 変換 ・PX. PY…… ス プラ イト 移動 時 の 増分 ・ G 〇 …… ス コア 


100 一 140 配列 宣言 ・PLAY 文 初期 化 ・ 1290 一 1330 モン の 動き 


パラ メー タ ・ MO…… モン の 数 


170 一 240 各 キ ヤラ フタ データ の 読み ご * 1350ー1420 アイ スプ ブロ ッ フ の 移動 BB 炎 。 Yo 可動 先 の カラ ー ヨ ー ド を ・ 9 ラウ ンド 数 


み ・1440-1510 モン スタ ー の 移動 s 知る だ め の 増 分 バ パラメータ  : HHS…… ハ イス コア 
260 一 290 パラ メー タ 値 の 読み こみ ・1530 1260 行 に も どる ・ 己 AB お …… ス プラ イト パターン ・ BX. 日 Y…… プ ロッ フ の 表示 
310 一 320 サウ ンド の 読み こみ ・1550-1580 モン タ が 死ん だ と き の 興 理 ・ PA、 PB…… 面 パタ ー ン ・ BC…… プ ロッ ク の 名 
340 一 420 面 ア ー タ の 読み こみ ・ 1600-1640 面 フ リア の 負 理 ・ DPS…… デ モ の と き の BGM ・X,Y…… モ ンタ の 中 標 
500 一 740 デモ ンス トレ ーション ・ ル ー ・ 1660-1760 ゲー ム オ ー バ ー 処 理 ・CP $…… 面 フリ アウ の と き の BGM : 1 X,| Y……: ア イス プロ ッ ン の 座標 
チン ・1780 一 1920 メッ セー ジ の 表示 ・OP S…… モ ンタ ガ 死 ん だ と き の BGM ・ MX , MY…… モ ンス ター の 座標 
1000-1240 ゲー ム ス マ ター ト ア ッ プ ・ ル ・ 2000-3110 データ ・GPB…… ゲ ー ム オー バー 時 の BGM 


ICE BLOCK For MSX 


Original ScCenario by S.ISHIHARA 
Character by S.1ISH1HARA 
SCenar1lO enhance by DEBU 

Game PTYO9rame by DEBU 
SCene-patterni by YUKI!! 

SPecial thanks to Mr.YAMASHINA 


CLEAR 1999:DEFINT A-Z 

0PEN "GRP:" AS 本 1 

DIM PX(3) ,PY(3) ,DX(3) ,DY(3) ,PA$( 2 ) 
PM=11:DIM PA(9,PM) ,PB( 5 , PM) 

PLAY “TI255V15" 


RESTORE 2999 'CHARACTER DATA 
FOR I=9 TO 2 
A や = LE 
FOR J=9 TO 31 
READ B$ 
A$=A$+CHR$(VAL( "&H"+B$) ) 
NEXT 
PA$S( 1 )=A$ 
NEXT 


RESTORE 2969 "PARAMETER DATA 
FOR I=@ TO 3 

READ PX(I ) ,PY(1I ) ,DX( 1 ) ,DY(I ) 
NEXT 


RESTORE 2989 'SOUND DATA 
READ DP$,CP$,OP$,GP$ 


RESTORE 3999 "MEN DATA 
FOR I=9 TO PM-1 
FOR J=1 TO 9 
READ A$:PA(J,1)=VAL("&H"+A$) 
NEXT 
FOR J=9 TO 5 
READ A:PB(J, 1 )=Ax16 
NEXT 
NEXT 


* 基 区 DEMO  ※※※※※※※ 区 芝 光 区 ※※ 光 区 区 区 区 
SCREEN 2.2:COLOR 7:PLAY DP$ 

FOR !I=9 TO 2:SPRITE$( 1T ) =PA$( 1 ) :NEXT 
FOR I=9 TO 3 

PSET(9,29+1) ,9 


PRINT 提 1 ," rm ヒコ エコ テコ エイ テコ ビー コ ー エ 


PRINT#1," | 9 』 


PRINT#1 。" し 
NEXT 


FOR I= の 9 TO 1 

PSET(59+」,189+1) ,9 

PRINT##1 "HIT SPACE KEY OR TRIGGER" 
NEXT 


IF PLAY(9) く >- 1 THEN PLAY DP$ 
PUTSPRITE 1。(9+iI,89),8 
PUJSPRITE 2。( り +!。116)。1 1 


・JK…… キ ー ボ ー ド カジ ヨイ ステ イッ フク か 


689 PUTSPRITE 9,(9+1,152),7 1619 RO=RO+1:ME=(ME+ 1 ) MOD PM 


699 IF STRIG(9) THEN JK=9:GOTO 739 1629 SC=SC+MEX1099 

799 IF STRIG(1) THEN JK=1:GOTO 739 1639 MO=MO+1:P$=CP も :A$S="CLEAR 1107 

719 1I=(1I+8) MOD 256 1649 GOSUB 1789:GOTO 1929 

729 GOTO 659 1659 : 

739 IF PLAY(9) THEN 739 1669 " GAME OVERN 、【URHRR5b5 5 。。 。_.。  。_- 
749 : 1679 P$=GP$:A$= "GAME OVER" :GOSUB 1789 


1999 '%※ GAME START UI ※※※※※※※※※※※ 光 区区 区 区 区 区 1689 LOCATE 19.29:PRINT "HIT SPACE KEY 0 


1919 SC=9:MO=3:RO=9:T=1:ME=9 R TRIGGER" 

1929 : 1699 : 

1939 ′" DRAW SCREEN 。。 0 潮時 1799 JK=-1 

1949 SCREEN 2,.2:CLS 1719 FOR I=1 TO 29909 

1959 LINE(9,9)-(249,176),12,BF 1729 IF STRIG(9) THEN JK=9:1=2009 

1969 LINE(112.9)-(127.15),1.,BF 1739 IF STRIG(1) THEN JK=1:I=2009 

1979 FOR Y=1 TO 9 1749 NEXT 

1989 FOR X=1 TO 13 1756 : 

1999 BX=XxX16:BY=Yx16 1769 IF JK THEN 599 ELSE 1099 

1 199 BC=((PA(Y,JME) \ 2^(13-X) ) MOD 2)※ 1779 : 

((RO MOD 16)+1)+1 1789 '" PRINT SCORE 。。。 。 0 
1119 LINE( BX , BY ) - (BX+15,BY+15) , BC, BF 1799 PLAY P$ 

1 1 2 LINE(BX+2,.BY+2)-(BX+13.BY+13) ,1,B 1899 IF PLAY(9) THEN 189 

1139 NEXT 1819 : 

1149 NEXT 1829 SCREEN 9:COLOR 15:KEY OFF :CLS 

1159 : 1839 IF SC>HS THEN HS=SC 

69 " SBM LOCANEIION uo kb 、、。 。> 1849 : 

1179 FOR IlI=9 TO 2:SPRITE$( 1 ) =PA$( T ):NEXT 1859 LOCATE 16.4:PRINT A$ 

1189 X=PB(9.ME):Y=PB( 1 ,ME ) 1869 LOCATE 14.8:PRINT "YOUR SCORE" 5 SC 
1199 PUTSPRITE 1!。(X.Y).8 * MONTA 1879 LOCATE 15。12:PRINT "HI-SCORE" 5HS 
1299 IX=PB(2.ME):IY=PB(3,ME ) 1889 LOCATE 16.16:PRINT "MONTA "iMO 

1219 PUTSPRITE 9。(IX,IY),7  ' ICE BLOCK 1899 : 

1229 MX=PB(4.ME):MY=PB(5,ME ) 1999 FOR IT=1 TO 3999:NEXT 

1239 PUTSPRITE 2。(MXJMY),11 ′ MONSTER 1919 IF PLAY(9) THEN 1910 

1249 : 1929 RETURN 

12509 " RBAD STICK uu ututhb9「!|thb ぁ |/9| キヨ ね ヨ ぉ 9 うぅ うっ 2 1939 : 

1269 S=STICK(JK ) 2999 '%※X BLOCK CHARACTER DATA ※※※※※※※※※ 
1279 IF S MOD 2=1 THEN S=S\2 ELSE 1329 2010 DATA 7f。CO0。bf bf 、bE 。5/ 。Df 。D7 ,D/ 。D7 。 
1289 : b7 。b3.。Df 、Df。C9、 7 。fe6.03.fd。f#d Ed、fd。fqd。【 
1299 " MOVE MONTA _ 0000 GO fd、fd。fd。Ed。fd。03。fe 

1399 IF POINT(X+DX(S) 。Y+DY(S) ) く >1 THEN 2929 '%※ MONSTER CHARACTER DATA ※※※※※※※※ 
1329 MM30 DATA 人 ME SE 3 7 ま 。 7 も 0、 ま 5。 まま 。fE 。、【【。 
1319 X=X+PX(S):Y=Y+PY(S) ef の 。 ff 。f す fbD.71。eG0、E8S,EG。EC,#eG。d6e。af 。 よ は 
1329 PUTSPRITE 1,.(X,.Y),8 まま まま 。 ま 7。 0) 。 ま すま ます 。GNE 、8@ 

1339 IF (X=112 AND Y=9)+(ABS(MX-X) く 9 AN 2949 '"%※ MONTA CHARACTER DATA ※※※※※※※※ 区 区 

D ABS(MY-Y)< く 9)<9 THEN 1559 ' OOPPS !!!1 2959 DATA 9cC,92.93.9f,3f,7b,75,ff,ff ,64。 
1349 : e9,f9,E8,7C,7f ,。3f,39,49,C9,f9。fC,de,ae,f 
5 MOWE 6 uH 上 Uoob9u ポ トコ 、、、。  。o MM 0 ま 、1 ま 36 、 ま @ 。 ま で 

1369 FOR S=9 TO 3 2969 '※X PARAMETEER  ※※※※※※※※※ 革 革 洋 洋 区 区 基 基 区 
1379 PE XX+PX(S) く > OR YTPY(S) く >IY THE 2979 DATA 9,-16.8,-1.16.9.17.8.9.16.8,1/ 

N 1499 > ご 16.9。-1.8 

1389 IF POINT(IX+DX(S) 。IY+TDY(S) ) く >1 T 2989 '%※ SOUND DATA ※※※※※ 光 区 区 区 区区 区 

HEN 1409 2999 DATA "04DDGGFGAABBO5DDCE04BBBAFGEDD 
1399 IX=IX+PX(S):IY=IY+TPY(S) :S=3 D", "05DDGEEBBBO6CDDCO6AABBB" , "04GGFECCC" 
1499 NEXT 。 "03GGFECCC" 

1419 PUTNSPRITE り 。(TX。TY) 。7 3999 '※ MEN DATA ※※※※※ デ ※※※※※※※ デ 区区 ※※※※ 
1429 IF IX=112 AND IY=9 THEN 1699 'CLEA 3919 DATA 9989,.998F,9999,.9189,99209,90920。 

R !!! 99A1.1D9A,9294、11.6.9,4,.4.6 

1439 : 3929 DATA 99A9,92A9,9222.941A,9408,95E4, 
1449 " MOVE MONSTER 00 9419,9499.9999,12.2.5.2.8,4 

1459 T=T※-1:IF T< く 1 THEN 1590 3939 DATA 1422.9989,9248.9528.9568,.94090, 
1469 MS=2+(Y< く MY ) x2 99BC,9999,9499,19,1.9.2.9,4 

1479 IF MY<>Y_AND POINT(MX 。MY+DY (MS ) ) = 1 3949 DATA 9AAA,9999,9AAA,9999,9AAA,9909, 
THEN MY=MY+PY(MS) :GOTO 15909 9AAA,9998.9AAA,19.2.4.8,.4。.2 

1489 MS= 1 -(X く MX ) x2 3959 DATA 9998,.9419,.9849.1984.9198.9210,。 
1 499 IF MX<>X AND POINT (MX+DX (MS ) , MY ) = 9421.9942.9999,13.8,11.8,.13,6 

1 THEN MX=MX+PX (MS ) 3969 DATA 9998.1324,9499,19D9,9509,992C。 
1599 PUTSPRITE 2,(MX ,MY ) , 1 1 9881.9919.93B2.7.3.5,.3,.9,3 

1519 IF (X=96 AND Y=9)+(ABS(MX-X) く <9 AND 3979 DATA 9989,9998.9469,9114,.9292.9850, 
ABS(MY-Y) く <9) く 9 THEN 1559 '′ OOPPS !!1 99C8.9499.9129,11、5、12.6,7,5 

1 ち 2 昌 5 3989 DATA 9888,.9422.9888.9242.1988,.9222 , 
1539 GOTO 1260 9988,.9992.9888,.13.3.6.6,13,7 

1549 : 3999 DATA 9292.9488.9129.9849.9199.9950, 
5 則 、" (QOBEBSS 00 0 tuRththbhfhbtf「0fpf+fhv$ ム る 1494.9199.9999,、7.5.2.8.12.2 

1569 MO=MO- 1 :P$=OP も :A$ も = "OOPPS 111" 3199 DATA 1C89,.9994.94F5,1491.17F9,、1090F. 
1579 IF MO=9 THEN 1669 | 1949.9999、1FF9,1.2.2.8.7,2 

1589 GOSUB 1789:GOTO 1939 3119 DATA 9989,9989.99F8,9489.949B,9480. 
1599 : 9 り 4DC,9499.1429、12.7.2.8.2。7 

1699 "CLEAR 100 Ho キキ ね お お キヨ キ ヨ ね ろ 9. ね お ねら だけ JIJ りり 


タ ざ 


OR MSX (32K) 


eg 最初 に 画面 デー ダ を 
gm グ 作 つ て がら 遊ぼ うつ 

この ゲー ム は り リスト が 2 つ あ る 。 きま 
ず 、 最 初 の リス ト ⑳ の ほう が 、10 面 分 
の 画面 デー タ 。 これ を 打ち こん で RUN 
させ る と 、 SET CASSETTE TAP 
E と 表示 され る の で 、 カ セッ ト を セ 
ッ ト 、 リ ター ン キ ー を お す と テー デジ に 
画面 デー タ が セー ブ さ れる 。 


桑 倖 巧 


これ が メイ ン リ スト だ 。 打 ちこ みお わ 
っ だ ら 、 さっ き の 画 面 デ ー タ の テー プ ' 
を BLOAD “DATA" と ロー ド す る 。 こ 
れ で RUN し て デモ 画面 で 2 を 選べ ば 
ゲー ム ス タ ー ト 。 

カー ソ ツル ・ キ ー で ネコ の ミー クン を 
動か し 、 恋 人 の マチ ル ダ を 救い 出 を う 。 
出口 は 、4 つの 隅 の うち どこ か 1 つ に 
ある 。 出口 で な いと ころ に マチ ル ダ を 
連れ て いく 〈 と 、 ま た 別 の 場所 に ワー プ 
し て し まう ぞ 。 な お 、 ミ ー ク ン は 押し 
て いく こと し か で き な い の で 、 持 っ て 


「』 6 $ 
バ ら 勝 いと 田 一 が れ 
1 使 へ ^ い 手 ま 思 佳 明 語る あ 』 
ey/N く 好 作 た 
mW さ 綺 ま が し つ 祐 き ザ ぃ い 
きせ 扇 たら て が あ な ン は 
2 も に | に 
mW い の の べ > 男 | て 
ョ m た な 作 ン ま の ル も ll 
m だ か 品 ネ 子 ス ショ 
mm き の も Il で タユ 
m ま マ S ム に 
チン と の な 
0 ん 桑 曲 『 
M Si で 田 を 
邊 B のせ う 大 つ 邊 
邊 2S CO ささ 電 
軸 ん ル も ん く 和 
6 9 


いき 方 に 注意 し な いと 困る こと に な る 。 
モン スタ ー は 色 違 いで 全部 で 7 種類 
登場 する ぞ 。① 白 色 一 ふつ う の モ ンス 
ター② ビ ピン クー 縦 方 向 に は 2 倍 の スピ 
ー ド て 進む ③ 区 色 一 避 を 食う ④ 赤 色 一 
横 方 向 に は 2 倍 の スピ ー ド ⑥⑤ 水 色 -① 
が 消 を ん たり 現われ だ た り ⑥ 遂 明 ! 一 た だ 
し 足跡 を 残す ⑦ 緑 色 --②+⑨③+④)。 

ミー クン は モン スタ ー を や っ つけ る 
こと は で き な い 。 だ た だ だ 導火線 の つい た 
ビン を 壁 に 1 度 押 し つけ る と 、 時 限 爆 
旨 に な か る の で 、 そ を そこ に まき こめ ば (3 
X 3 キャ ラク タ の 男 囲 ) 、40 秒 間 、 気 絶 
き 写 区 あく こと が て きる の だ 。 

オノ は これ を 提 し つけ る と ブロ ッ ク 
が 消 を ん る 。 こ れ を 使っ て 、 都 合 の いい 
道 を 作っ て いく の も コツ が だ 。 


炊 に 、 リ スト の ほう を 打ち こも う 。 


ヘー 
ーー で 


se は 台 ク 昌 EG 川 


eQ ご 由 く J と 細 。 で は 9GSf 旭 
S き ささ Or4 HU 入 いい 


が いこ こい ご た 1 アダ > 0 に も ェ き 
すく と 2 OTR2 て を な 
スッ に 34C な ak が 1 た まっ 覆っ Yo2 い て て な < 
1 2 チ ゃ 還 さま 2 う っ で 1 PE 


19 CLEAR 399、&HE452:AD=&HE453 

29 READ D$:IF D$ く >"END" THEN POKE AD、.VAL 
("&H"+D も ) :AD=AD+ 1 :GOTO 29 

39 PRINT "SET CASETTE TAPE" 

49 PRINT "PUSH [RETURN] KEY": 

S9 LINE INPUT A$ 

69 BSAVE "DATA" ,&HE453, &HE453+291- 1 
79 PRINT "END" 

89 END 

199 DATA 9A,99,99,.54.54.99,99,54 
119 DATA 54.99.99,99,99,54,54,99 
129 DATA 99.54.54.99,99、22、88,99 
139 DATA 99,.89.92.18,.39.92.89,92 
149 DATA 89,18.39,89,92,99,99,22 
159 DATA 88,99.99.28.A8,68,2C,92 
169 DATA 99,58,.34,.58,B4.99,99,6A 
179 DATA 2C,28,.28.99,99,44,99,44 
189 DATA D6,99,19,.1C,19,.C9,99,12 


ヶ と 時 は さ 「)4 


ec ぶ ー 必 


る 画 変 数 リス ト 

ス 不 還 NRN G's(e る 画数 

々 気 類 に し 信 っ の ーー ジジ シン の 数 

| 味 ドコ OO……| スコ アア 

"な あ AA( )…… モ ンス マー の 易 種 類 
征 | osaes ダイ / ゝ 


X…… ミ ー ク ン の X 春 標 
Y……: ミ ー フ ン の Y 卒 標 
AX( )…… モ ンス マー の XX 座標 
AY( )……- モ ンス マー の Y 型 標 


96,19.79.19.99,.D6,44.99 


44、99,99,99、99、38,.38,29 
98.9A、A9.9A,A サ ,29,.98,38 
38 、99、99、99、99.99,99,6A 
っ 4 .49.94.54.AC,99,.99.99 
99、6A.54.49.94.54,AC,99 
99.99.99,4A、A4.19,19,29 
り 98 ,99、99,99,99.29.98,19 
19,4A,A4.99,99,99,99,6A 


AC,49,94.5C。79,19,44,44 


19,1C,74.49.94.6A,AC,99 
99,99,99,7E、A2.49,98,49 
A2.49.98.49,22.49,88,49 
22。7E。88.99,29,92.89,48 
24.29.98,19,19,4A,A4,4A 
A4.19,19,29,98,48,24.,92 
89 , END 


ルル / 


MUS…… ミ ー ク ン 用 BGM ・ 590 一 690 爆発 処理 ・ い 。 ・ に も どり 、 以 下 この 繰り 返し で 画面 を 作 

MS おぉ …… モ ンス ター 用 BGM ・ 700 一 850 ミー フン が 押し て いる キャ ラ : RESTORE 1770 : = 0 : FO : つて いつ て こく ださい 。 作 る だ びに 、 画 面 

FX…… ミ ー ク ン の 押し て いる キャ ラフ ・ クタ の 娘 理 ・R 1=1 征 O 83 :RREAD DS : ・ の 番号 を 1 つ ざ ずつ 大 きこ し て いこ こと を 
タ の X 座 標 ・860 一 880 ワー ブ 処 理 ・ フ ニン +VALC で 8H"TDSXNEXT ・ 忘 れ な いよ うに て LASTSOCREEN 

FY…… ミ ー ク ン の 押し て いる キャ ラフ ・ 890 一 980 初期 画面 ・1:PRINT HEXS〈Z) ・ NO=… が それ まで に 作 つ だ 面 の 最後 を 
フタ の YY 座標 ・ 990-1000 スコ ア 表 示 ・ 2406 が 表示 され ば 〇 に で す 。 ・ 表 し て いる )。 

RX( )…… 爆 弾 の X 座 標 ・1010-1090 面 フリ ア 処理 (エイ キチ ) ・ オリ ジ ナ ル 面 を 作る と き は 、4 つ の 隅 

RY( )…… 爆 弾 の Y 座 標 ・1100 一 1110 画面 番号 決定 ・ 画 画面 の 作り 万 ・ を 必ず あけ 、10 個 以上 の 空白 を 作 つ て お 

TM( )……- 爆 弾 の 爆発 マイ ム ・ 1120-1190 ゲー ム オ ー バ ー ・ デモ 画 画 で 1 を 選ぶ と ヾ TelseiNO. :・ ここ と 。 

OO…… 出 口 の 番号 ・ 1200-1330 デモ ・ マ ? と 聞い て こる の で 〇 を 入力 する と 全部 : 画面 を ひと と お り 作 つた だら デ モ 画 面 で 


・ う を 選択 。 カ セツ ト を SAV ヒ 状態 に し 
て 作 つ だ 面 の 数 を 入力 する と 自動 的 に フ 
ァイル “DATA” で SAVE し て ぐ 


G( た …- モ ンス ター の 色 ・1340 一 1400 画面 作成 

T 1( )…… モ ンス ター が 動き だ す 時 間 ・1410-1470 各 キ ャ ラク フタ 定義 
較 プ ロ プ ラム の 説明 ・ 1480 一 1500 マキ ン 語 読み こみ 
10 一 30 初期 設定 ・ 1510-1750 キャ ヤラ フタ デー タ 
40 一 70 サブ ルー チン へ ・1760 一 1810 マシ ン 語 デー タ ・ の ` み "を 押せ ば 豆 の キャ ラフ タ ガ 出 て こ 
80-100 ゲー ム 初 期 設定 1 ・1820-1840 サウ ンド ツ デ ー タ ・ る 。1 面 分 で き あ が つ だ ら 、 カ ー ソ ル を 画 
110-140 ゲー ム 初 期 設 定 ・ 画 チェ エッ ン フ ポイ ント ・ 面 の 左上 まで 持つ て き て 、CONT リ タ 


・ 壁 の 画面 が 出 て こる 。 そ ご で カー ソル ・ 
・ キ ー と スベ ー ス ・ キ ー を 使 つて 通路 を 作 
・ ろ う 。 1 キャ ラフ の 大 き さ は カー ソル 


・ 個 分 だ 。 削 りす ぎ だ と き は 、 ひ ら が な : れる 。 
ロー ド は BLOAD"DATA” と する ご 
と 。 


160 TIME 表 示 ・ マシ ン 語 デー タ 確 認 の だ め 、 リ スト ⑧・ー ン と すれ ば 、SCREENNO. と 聞 
170-310 ミー フン 物 動 ・ の プロ グラ ム を 打ち お わ つ だ ら 、 次 の プ ・ いて こる の で 、 ま ず 1 を 入力 (これ が 画 ・ 
320--580 モン スタ マー 移動 ・ ロ グラ ム を ダイ レク フト で 実行 し て こ だ さ ・ 面 の 番号 に な る )。 リ ター ン ・ キ ー で デモ ・ 


レル 


> 2e 角 

19 KEY6, "screen9"+CHR$( 1 )+CHR$( 13) 
29 CLEAR299,&8HE3FF :SCREEN1 .2:WIDTH28:COL 
OR 4,.1,.1:KEYOFF:DEFINTA-R,T-Z:DEFUSR=&HE: 
499:DEFUSR1=&HE417:S1=109099 

39 IF PEEK(&HE453)=255 THEN POKE&HE453,0 


ざさ re 


CD で 2 の 83) QOS て 
489 ON -((V=248) OR (V=249) OR (V=232 ) ) - 
(V=233)%2+((AA(L)=5 ) x3+(AA(L)=4)x4)x※(V く 2 
23) GOTO 599,529,539,549 
499 GOTO 559 


S599 AX(L)=A1(L):AY(L)=A2(L) :GOTO 569 


し ks S19 LOCATEAX(L)/8-2,AY(L)/8:PRINT" "LO 
59 GOSUB1429 CATEAX(L)/8-2,AY(L)/8+1:PRINT"  ":GOTO 5 
69 マニ テー-Gd@MNO' や = マー 59 

79 GOTO 1219 S29 PUT SPRITE し ,(AX(L) ,AY(L) ) ,C(L) ,5:BX 
8 “== ェ ュー シヨ 叶 】 = ニニ ニ ー =AX(L)/8-2:BY=AY(L)/8:TA(L)=TM-49:A(L)=1 


99 RN=1:GE=1:LE=4:SC=9:FOR 1=1 TO 3:AA(I 

)=9:NEXT:GOSUB1110 

199 FOR !=9 TO 6:MS$(I)=MID$( "abcdef9"。1 

+]1 、1 ) : NEXT 

介さ マー 必 ヨ キ 、 2 コン テー 

129 R=RND(-TIME) :00=INT(RND(1)*4)+1:TI=3 

99:Q=9:X=16:Y=24:FOR 1=1 TO 3:AX(T)=224: 

AY(I)=168:A(I)=9:TM(I)=9:C(I)=-(15-AA(I) 

X2)x(AA(I)<>5):NEXT:PLAY"V14t299164" 

139 FOR 1=5-LE TO 4:PX(I)=16+29%※(1-1)-(4 

-LE)*29:NEXT 

149 GOSUB999:TIME=9 

9 “= ェ ニ = MAIN テー=ー ニ ーー 

169 TM=TI-TIME/69:LOCATE19,1:PRINTRIGHT$ 

(STR$( 1999+TM) ,3):IF TM=9 THEN 1139 

179 XX=X:YY=Y:A=STICK(9 ) 

189 ON (A=1)xX(Y>24)+(A=3)X(X く 224 )X2+(A=5 

)%X(Y く <168)x3+(A=7)X(X>16)x*4 GOTO 299,219, 

229 , 239 

199 P=1:MU$=" "EGOTO 319 

299 Y=Y-16:P=4:MU$S="o5cd" :GOTO 249 

219 X=X+16:P=3:MU$="o5GD" :GOTO 249 

229 Y=Y+16:P=1:MU や ="o5dC":GOTO 249 

239 X=X-16:P=2:MU$= "oO5dG" 

249 V=VPEEK(&H1899+X/8+Yx4) 

259 ON -(V>223 ) - (V=233 ) \*2-(V=249)-(V=46 ) 

%4 GOTO 289,299.399,279 

269 GOTO 319 

279 SC=SC+19:GOSUB1999:LOCATEX/8-2.Y/8:P 

RINT" "iMU$="o7edC":GOTO 319 

289 GOSUB 719:GOTO 319 

299 X=XX:Y=YY:MU も =" "EGOTO 319 

399 PUT SPRITE 9,(X,Y),12.1:BX=X/8-2:BY= 

Y/8:GOSUB 699:GOTO 1139 

319 PLAY"xmu$:":PUT SPRITE 9,(X,Y)。19,P 

329 L=L+1:1F し =4 THEN し =1 

339 IF TM<TM(L) THEN TM(L)=9:BX=RX(L し ) : BY 

=RY(L) :GOSUB699 

349 IF A(L)=1 THEN IF TM<TA(L) THEN A(L) 

=9 ELSE 569 

359 Al(L)=AX(L):A2(L)=AY(L し ) 

369 IF AA(L)=3 OR AA(L)=6 THEN M1=INT(RN 

D(1)x2)x16+16 ELSE M1=16 

379 IF AA(L)=1 OR AA(L)=6 THEN M2=INT(RN 

D(1)x*2)x16+16 ELSE M2=16 

389 ON (RND( 1 )x6+4 )MOD4+1 GOTO 399,499,4 
19 , 429 

399 MX=SGN(X-AX(L) ) :GOTO 439 

499 MY=SGN(Y-AY(L) ):GOTO 449 

419 MX=INT(RND( 1 )*3)-1:GOTO 439 

429 MY=INT(RND( 1 )x3)-1:GOTO 449 

439 AX(L)=AX(L)+MXxM1 :GOTO 459 

449 AY(L)=AY(L)+MYxM2 

459 IF AX(L) く 16 OR AX(L)>224 OR AY(L) く 24 
OR AY(L)>168 THEN 599 

469 V=VPEEK(&H1899+AX(L)/8+AY(L)※4) 

479 IF ((V=249) OR (V=232) ) AND ((AA(L)= 
2) OR (AA(L)=6) ) THEN 519 


:GOSUB 699:Z=4:SC=SC+((AA(L)+3)x19-TK ) x1 

9 :GOSUB1999:GOSUB879:GOTO 559 

539 LOCATEAX(L)/8-2.AY(L)/8:PRINT" .":GOT 

0 559 

549 IF RND(1) く <.4 THEN C(L)=C(L)+7+(C(L) = 

7 )x14 

559 PLAY "oO1"+"xmS$(aa(1)):j" 

569 PUT SPRITEL,(AX(L) ,AY(L) ) ,C(L) ,5 

579 IF A(L)=9 AND ABS(X-AX(L) )+ABS(Y-AY( 

L) ) く 24 THEN C(L)=C(L)-(C(L)=9)%13:PUT SP 

RITE L。(X。Y) 、C(L) 5:GOTO 1139 

589 GOTO 169 

599 '---- 作 ~ ク ハツ シヨ リ -ーーー 

699 V=9:BB=9:B1=9:B2=9:SOUND7 , 247 : RESTOR 

E 1849:FOR I=9 TO 13:READ Ww:SOUND 』 ,W:NE 

XT 

619 FOR J=-2 TO 2 STEP2:FOR 1=-2 TO 2 ST 

EP2 

629 IF BY+I>2 AND BY+I<22 AND BX+J>-1 AN 

D BX+J く 28 THEN V=VPEEK( &H1899+BX+J+(BY+1 
) %32+2)ELSE660 

639 IF V=248 THEN BB=1:GOTO 669 

649 IF (1I<>9 OK J<>9) AND V=233 THEN B1= 

J:B2=I:GOTO 669 

659 IF V>223 THEN LOCATE BX+J,BY+1:PRINT 

"WiLOCATE BX+J,。BY+ エ I+1:PRINT" " 

669 NEXTI,J:SOUND 7.248:IF BB=1 THEN VPO 

KE&H291F,&H91:GOTO 1139 

679 FOR 1!=1 TO 3:IF BX=RX( 1 ) AND BY=RY(I 
) THEN TK=TM( IT )+15-TM: TM( 1 ) =9 

689 NEXT:IF B1<>9 OR B2<>9 THEN BX=BX+B1 
・BY=BY+B2:GOTO 699 

699 RETURN 

799 ' --ーーー- キャ ラ イト ~ ウ -ー-- 

719 Fl1=X/8-2:F2=Y/8:FX=F1+(X-XX)/8:FY=F2 

+(Y-YY)/8:Z=-(V=248)-(V=241 )x2-(V=232 ) x3 

-(V=226 ) x4 

729 IF FX<9 OR FX>26 OR FY<3 OR FY>21 TH 

EN IF Z=4 THEN 829 ELSE 899 

739 F=9:FOR I=1 TO 3:F=F+(FX=AX( TI)/8-2)※ 
(FY=AY(I)/8):NEXT:IF F>9 THEN 899 

749 V=VPEEK(&H1899+FX+FYx32+2 ) 

759 IF V>223 THEN IF V=233 THEN BX=FX: BY 

=FY:GOTO 699 ELSE ON Z GOTO 899,819.,899, 

820 

769 U=(FX=26)※X((FY=21 )x4+(FY=3)x3)+(FX=9 
)%X((FY=21 ) x2+(FY=3) ) 

779 IF U=9 THEN MU$="o4ec":GOTO 849 

789 IF Z=1 AND U=00 THEN LOCATE F1.,F2:PR 
INT" "iLOCATE F1.F2+1:PRINT"  ":PUT SPR 
ITE9,(X.Y)、19、1:SC=SC+ INT(TM/2 ) x19:GOSUB 
1999:GOTO 1929 

799 MU$="o7gfed":LOCATE F1.F2:PRINT"  ": 

LOCATE F1.F2+1:PRINT"  ":GOSUB 879:GOTO 

859 

899 X=XX:Y=YY:MU$=" "EGOTO 859 

819 IF V=248 THEN VPOKE _&H291F,&H91 :GOTO 
1139 ELSE MU$="o6ao7a":GOTO 849 


829 MU$="o7a":Z=5:SC=SC+19:GOSUB 1999:Q= 
Q+1:IF Q>3 THEN Q=1 

839 RX(Q)=F1:RY(Q)=F2:TM(Q)=TM-15:FX=F1 : 
FY=F2:X=XX:Y=YY 


849 LOCATE F1,F2:PRINT" ":LOCATE F1,F2+ 
1:PRINT" ":LOCATEFX,FY:PRINTG1$(Z) :LOCA 
TEFX,FY+1:PRINTG2$(Z) 

859 RETURN 

869 "---- ワ - フ *---- 


879 CX=(INT(RND( 1)x12)+1)x2:CY=(INT(RND( 
1 )X8)+3)%2-1 

889 V=VPEEK(&H1899+CX+CYX32+2):IF V>223 
THEN 879 ELSE LOCATE CX,CY:PRINTG1$(Z) : し 
O0CATECX ,CY+ 1 :PRINTG2$(Z) :RETURN 

899 '---- SCYTeGT  ---- 

999 FOR !I=9 TO 3:PUT SPRITE 1 ,(9,299):NE 
5 6 

919 LOCATE 11.9:PRINT "SCORE" :SPC( 2 ) : "TIM 
EE 5SPC( 1) 5 "STAGE" 

929 GOSUB1999:LOCATE 18,1:PRINTT1I:SPC( 2 ) 
iRIGHT$ も (STR$( 1999+GE ) , 3 ) 

939 FOR !I=5-LE TO4:PUT SPRITE I+4。(PX(1 ) 
9),19,1:NEXT 

949 A=USR( 9 ) : VPOKE&H291F,&H71:FOR I=9 TO 
3999:NEXT :LOCATE9 ,3:A=USR1 (9 ) 

959 FOR Z=4 TO 1STEP-1:FOR 1I=9 TO 2+(Z=1 
)%X2:GOSUB879 :NEXTI ,Z 

969 FOR !I=1 TO 3:PUT SPRITEI , (AX( 1 ) ,AY(I 
) ) ,C(I).5:NEXT 

979 PUT SPRITE 9-LE,(9.299):FOR I=1 TO 2 
4:PUT SPRITE 9,(16,1 ) ,19,1:NEXT 

989 IF LE=1 THEN RETURN ELSE FOR J=6-LE 
TO 4:FOR I=1 TO 29:PX(J) =PX(J) - 1 : PUT SPR 
ITE J+4。(PX(J) ,9) ,19,2+(1T=29) :NEXTI ,J:RE 
TURN 

999 '---- SCOTG -ー-ーー 

1999 LOCATE 11.1:PRINTRIGHT$ も (STR$( 199999 
999#+SC) , 7 ) : RETURN 

1919 '--- C]ear ---- 

1929 AA(1)=AA(1)+1:IEF AA(1)=7 THEN AA(1) 
=AA(1)-(6-AA(2)):AA(2)=AA(2)+1 

1939 IF AA(2)=7 THEN AA(2)=AA(2)-(6-AA(3 
) ) :AA(3)=AA(3)+1:AA(1)=AA(3) 

1949 IF AA(3)=7 THEN AA(1)=9:AA(2)=9:AA( 
3 ) =9 

1959 PLAY"t89v15o5g98a1698.f16e8.f16e8.d1 
6d8.e16e8.e8r8a8g16a8.e8c16c8.c8r4d4c4" 
1969 FOR I=9 TO 2:LOCATE 8,11+1I:PRINTSPC 
(132):NEXT:LOCATE8.12:PRINT" NEXT STAGE " 
・FOR I=9 TO 14999:NEXT 

1979 IF GE MOD 19=9 THEN LE=LE+1:IF LE>4 
THEN LE=4 

1989 IF RN=PEEK( &HE453 ) THEN RN=1 ELSE R 
N=RN+ 1 

1999 GE=GE+ 1 : GOSUB1 119:GOTO 129 

1199 ' ---- screen nO. サッ テイ ---- 

1119 AD=&HE418:FOR 1=3 TO 1 STEP- 2 : POKE 

AD,VAL("&H"+MID も (HEX$( &HE454+29x(RN-1 ) ) , 
1 ,2) ) :AD=AD+ 1 : NEXT TI : RETURN 

1129 ' ---- GAME OVER ---- 

1139 PLAY"v15t22918o5reee-ddc+c+ccdc4o4b 

4o5e1":FOR J=9 TO 4999:NEXT:LE=LE-1:IF し 

E>9 THEN 129 

1149 FOR I=9 TO 3:PUT SPRITE I,(9,299):N 

EXT:A=USR(9):FOR I=9 TO 2:FOR J=9 TO 12: 

LOCATE 8+J, 11+1I:PRINTCHR も (232 ) : NEXTJ。 1 し 

OCATE9,12:PRINT" GAME OVER " 

1159 IF SC>S1 THEN S1=SC:LOCATE 3,22:PRI 

NT" You got high score ! " ELSE 1189 
1169 PLAY"t189v1218o2aao3cefo2ao3cfo2ggb 

o3dccego4a1d4r"。"t189v1518o4ag+ag+ag+aO5 

oe SC6E4Beddec4169ddddde16d1ec 
C 

1179 IF PLAY(9) THEN FOR I=&H21 TO &H81S 

TEP&H19:VPOKE&H291E, I:FOR J=9 TO 5 :NEX 

TJ, TI:GOTO 1179 

1189 IF INKEY$< く >"" THEN 1189 ELSE LOCATE 
8,19:PRINT" HIT ANY KEY ":LOCATE 9,8 
1199 IN$=INKEY$: IF IN$="" THEN 1199 

1299 '---- demO ---- 

1219 CLS:LOCATE 19,23:PRINT" マチ ル タ ~ " 

1229 PRINT" みみ みね みみ ね わ 。 みみ みね 。 みね みね " 

1239 PRINT" みね ーー み ね ー み ねー みね ー み ね ー み ね ー か ねー 一 みね っ " 

1249 PRINT" | みね みね 。 みみ みみ ね みみ みね みみ みね 1" 

1259 PRINT" | みね みね みね みね みね みね みね 。 1" 

1269 PRINT "上 みみ みみ ね ー み ね ーー みね ー み みみ みね ーー 一 みね ーー " 
1279 PRINTSPC( 96 ) : "PUSH" : SPC( 49 ) : "MAKE- - 

--(1) "51SPC(17) : "GAME----(2)":SPC(17) : "SA 

VE----(3)":SPC( 69) : "HIGH- SCORE "3 RIGHT$( 

STR$( 19999999#+S1 ) ,7) :SPC(118): "WWWWWWWW 

WwwWwww(C)S.A.S.WW" 

1289 D=9:1T=9:J=1:P=3:MC$="21212428292124 

291919232624242831" 

1299 IN$=INKEY$: IF IN$= "1 "ORIN$= "2"0RIN$ 

= "3"THEN PLAY"V15132o5co4bo5cdcdedefefgf 

9a9a9#8":FOR H=5 TO 6:PUT SPRITE H,(9,26 

9):NEXT:ON VAL(IN$) GOTO 1359 , 99 , 1499 


1399 IF PLAY(9)=9 THEN D=D+2+(D=32 ) x*32:P 
L し =VAL(MID ゃ (MC$,D- 1 , 2) ) :PLAY "S14M659t1991 
8n=p1i" 

1319 I=I+J:IF 1I=299 THEN J=-1 :P=2 

1329 PUT SPRITE 5。(I,158),19.P:IF J=-1 T 
HEN PUT SPRITE 6,(I+29.158),2.5:IF 1I=49 

THEN J=9:P=1 

1339 GOTO 1299 

1349 '---- maKG SCTeGT  ---- 

1359 CLS:LOCATE 5.19:INPUT "Teisei NO.": 
RN:A=USR(9):IF RN>9 THEN GOSUB1 1 19 : LOCAT 
E 9.3:A=USR1 (9 ) 

1369 LOCATE9,9:STOP:LM=PEEK( &HE453 ) : LOCA 
TE 9.9:PRINT"1ast screen no= "iLM:INPUT " 
SCREEN NO. "iLD:AD=&HE454+(LD- 1 ) x29 

1379 IF LD く 1 THEN 1219 ELSE IF LD>LM THE 
N POKE&HE453,LD 

1389 K=&H1862:FOR J=9 TO 19:A$S="":FOR 1= 
9 TO 6:A=VPEEK(K):K=K+2:1IF A=249 THEN A$ 
=A$+" 1" ELSE A$=A$+ "9" 

1399 NEXTI:A$=A$+"9":POKE AD+J,VAL( "8&b"+ 
A$) :K=K-((J+3)MOD2=9 ) x36:NEXTJ:GOTO 1219 
1499 CLS:LM=PEEK( &HE453) :LOCATE 5,.8:INPU 
T "SAVE LAST NO. "iLM:LOCATE2 ,19:PRINT "SA 


VE (SCREEN NO.1 -":LMi")":BSAVE"CAS:DATA 
",&HE453,&HE454+(LM- 1 ) x29+29:GOTO 1219 
1419 "----- テイ キ ~ ---ーーー 


1429 RESTORE 1839:FOR 1=9 TO 13:READ D:S 

OUNDI ,D:NEXT 

1439 RESTORE1529:FOR J=1 TO 18:READG:FOR 
1!=9 TO 7:READP$:VPOKE Gx8+I,VAL("&h"+P$ 
) :NEXTI,J 

1449 FOR !=1 TO 5:READ W1.W2.W3.W4:G1$(I 
) =CHR$(W1 )+CHR$(W2 ) : G2$( エ ) =CHR$(W3)+CHR$ 
( W4 ) : NEXT 

1459 VPOKE&H291C,&HF 1 :VPOKE&H291D,&H41:V 

POKE &H291E,&H81:VPOKE&H291F , &H7 1 : VPOKE& 

H2996 , &H21:VPOKE&H2997 , &H2 1 

1469 FOR !=1 TO 5:FOR J=1 TO 32:READD$ 
1479 B$=B$+CHR$(VAL("&h"+D$) ) : NEXTJ: SPRI 

TE$(」)=B$:B$=" "ENEXT 1 

1.46H ニニ = ニー マシ ンコ ヨミ コミ ニニ ーー 

1499 AD=&HE499 

1599 READ A$:IF A$<>"x" THEN POKE AD,VAL 
("&H"+A$) :AD=AD+ 1 :GOTO1599 ELSE RETURN 
1519 "ニニ =- DATA ---= 

1529 DATA 249.99.df,df,99,99,fd,fd,99 
1539 DATA 232.99.df ,df ,99,99,fd,fd,99 
1549 DATA 248,1F,69,4C,8C, 8B, B3,B7 , 89 
1559 DATA 249,A9.86.96.81.98,5B,69,1F 
1569 DATA 259,F8.96.92,39.C9.C9,F1 ,91 
1579 DATA 251.95.61.69.81.19,DA,96,F8 
1589 DATA 241,.99,99,96.97,7F,BF, 5E, 2E 
1599 DATA 242.16.9A,94.92.99,99.99,99 
1699 DATA 224.99,99,99,99,99,49,69,39 
1619 DATA 225,18.9C,96.93.91 ,99,99,99 
1629 DATA 226,3E,41 ,81 ,83,83,83,18,3F 
1639 DATA 228.3F,5F,5F,5F,2F,2F,1F,97 
1649 DATA 227.99.99,99,89,.89,89,F9,88 
1659 DATA 229.C4.FE,E2.E2.E4 ,C4.D8,E9 
1669 DATA 233,99,98,22.9B,93,.93,18,3F 
1679 DATA 235,3F,5F,5F,5F,2F,2F,1F,97 
1689 DATA 234,99,99,99,89,88,.89,F9,88 
1699 DATA 236.C4,FE,E2.E2.E4,C4.D8,E9 

1799 DATA 248,259,249,251,241 224,242,22 

5, 232 , 232 。 232 。 232 226 ,227 ,228 229,.233,23 

4.235,236 

1719 DATA 3C,23.27,.2F,13.E5,13,4E,97,19。, 

62,4B,68.97,1A,1E,3C,C4.E4,F4.C8,.97,C8,7 

2.E9,98,46.D2.16.E9.58,78 

1729 DATA 1C,97.9F,1F,16,44,16,.49,97.99, 

2A,6A,6A,97.1A,1E,78.88.C8.F8,78.B3.78,F 

2.E9,19,EB,EB,1B,76,B9,F8 

1739 DATA 9E,99.9B,9F,9E,1F,1E,9F,97,94, 

89,DF,DF,6F,1A,1F,E9,49,F9,F8,C8,94,CC,F 

8.F9,88.76.76.98,F9.68,78 

1749 DATA 38,3B,3F,3F,1F,FF,1F,4F,97,1A, 

63,4B,6C,96.1A,1E,1C,DC,FC,FC,F8.FF,F8,F 

2.E9,5C,D9,E3,9F,FE,99,79 

1759 DATA 99,97,1F,3F,3F,77.77,41.77.77。 

3F , 3F,1F,96.3E,99,99,.E9,F8,FC,FC,EE,EE, 8 

2.EE,EE,FC,FC,F8,69,7C,99 

1769 "---- マシ ンコ ~ DATA ---- 

1779 DATA11.49,18.21.16.ec4.91,91.99,CD,5 

C。99 ,EB,A7,13。.7A 

1789 DATAC6,E5,D2.93.e4.C9,F9,21,54,.e4,1 

6,9A,1E,92,CD,31 

1799 DATAe4,23。CD,31 ,e4,2B,1D.C2.1E,e4,2 

3。 23。15。C2。1C,。e4 

1899 DATAC9.4E,96.97,CB,91.D2.46,e4.3E,F 

9.CD,A2.99,.3E,F9 

1819 DATACD,A2.99,C3,.59,e4.3E,29,CD,A2,9 

9.3E,29,CD,A2.99,19.E2.C9, テ 

1829 '---- SOUND DATA ---- 

1839 DATA 16.9.19.9,22.9,9.56.16,16,16,1 

99.69.8 

1849 DATA 9.9,.9.9.9.9,.21.7.16.16.16,.99,2 

9.9 


う ア 


@ 前 後 の 英 と 戦い な が ら 次 の 基地 へ ! 


エ シ ド レス 


EMD/ESS 


の ルン 


2 2 3 Ss 
4 OS 
半 
CC Co 
oo 


oo 
mn 
eo 
er 
mr 


ーー 


ンク ン ン スン ルン イン テ 


4 前 か ら 敵 、 後 ろか ら 敵 。 だ が 、 沙 ち つ し 


⑥》 前 と 後ろ か ら 
敵 機 が 用 め て こく る 


果て し な い 戦 いた し いえ ば 、 パ ソコ ユン 
ゲー ム の ほとん ど が そう だ ね 。 と き と 
き 、 2 パソ ツ ョ ヨン が ギン アック する ゲー ム 
が ある に は ある けど 、 だ たま に は 全面 ク 
リア を 果たす と 突然 ディ スプ レイ が 娠 
発する と か 、 パ ソコ ン が 火 を 吹く と か 
を うい う 元 気 の い い の が は し いね え 。 
(ある か 、 そ ん な も ん 『!) 

RUN す る と 、 タ イト ル 画 面 が 出る 


の で 、 ス ペー ス ・ キ ー を た た いて 、 ゲ 


ー ム スタ ー ト 。 
ジョ イス テイ ッ ク 、 カ ー ソ ル ・ キ ー 
の どちら も 使え る 。 


シー オニ ッ フ ー ゲ 
ルイ ニテ : に ナナ ーーー レ 
ン - ンジ ン ンプ プー し 4 


KS 
これ で も 彼 は 中 3 の 受験 生 で す 』 
実は ね 、 第 5 号 を 買っ て 喜ん で いる と 
な ん と ! この 作品 に そっ くり の アイ デ 
ア の ゲー ム が 載っ て いる で は な いか ! 
う 一 ん 、 先 を 越 さ れ て し 
まっ た 。 で も 、 い いも ん 
ね 、 ボ ク の キャ ラ は 
オリ ジ ナ ル だ も ん ね 。 
こら 、 く ろ ね こ A 
まま いつ だ か 
ちな み に 3 回 
連続 採用 は ボク 
だ 0 


と 1 HI BI BI 時 8 MI BI BN H BI HI I  』I WW W 朋 


W 
1 
| 
9 


【 有朋 月 上 有朋 上 上 W 上 上 旧 上 上 っ 


画面 に 浮か ぶ 宇 宙 戦 士 を 上 下 左 右 に 
動か し て 、 前 か ら 後 の か ら や っ て くる 
英 と 戦う 。 

あま り 前 に 行き すぎ る と 、 と っ さき の 
と き に 困っ ちゃ うし 、 後 の に 行き すぎ 
て も 背後 の 敵 か が こわ い 。 

敵 を や っ つけ る に は 、 十 分 ね ならっ て 
スペ ー ス ・ キ ー (まだ は トリ ガー・ ボ 
タン )。 敵 に 3 回 が つか る と 、 ゲ ー ム オ 


ー バ ー に な る 。 


< の 少 輝く 量 は 
アジ 面 ク リア 数 

だ れ か ヵ か チョッ プリ フタ ー” み た だ た い 
(アッ プル の ゲー ム ) と 叫ん だ の は 、 し 
ば らく 進ん で 基地 が 出 て きた と き 。 

ENDLESS と は いえ 、 と きど き 休 憩 が 
ある の だ 。 よ か っ た だ ね 。 ' 

示 地 に だ だ りつ く と 、1 ス テー ジ ク 
リア 。 左上 に 星 の マ ー ク が つい て 、 ク 
リア し だ た ステージ 数 を 表示 し て くれ て 
いる 。 

や っ て みて 、 ち ょ っ と 動き づら いな 
思っ だ 人 は いる だ ろう か 。 作者 
に よれ ば 、 それ は 「 地 上 の 戦い 」 だ か 
あの る た を 。 

宇宙 で は 空気 の 抵抗 も 重力 も 関係 な 
〈 自由 に 動き まほ われ る けど 、 る きす が に 
地上 ご びと いろ ん な 制約 が ある の で 、 る 
の 感じ を 出し て いる の だ ろう 5。 

果たし て 、 本 当 に 感じ ” を 出す た 
め な の か 、 そ れ と も 単なる 言い わけ が 
ー 一 永遠 の 謎 の まま 戦い は 洒 て し な く 
続く 。 


し まえ 


22 


較 変 数 リス ト 
SOC…… ス テー ジ 数 


意 < 


ン ア 
ァ ヶ ビ 


・ MS…… ミ サイ ル が 出 て いる か 
・ MX…… 三 サイ ル の X 春 標 
・ MY…… 三 サイ ル の Y 座 標 


HS…… ハ イス コア ・ EX.EY…… 敵 の 座標 
ST……STRIQ 入 力 判 定 用 ・ ZZ…… 敵 の 秘 動 用 
ーー STICK 入 力 判定 用 ・ AS 〇 …… 地 面 の キャ ラフ タ 


・ プ ロブ ラム の 説明 
10 一 50 初期 設定 
60-170 キャ ラフ タデ ー タ マ 


の GE RI っ = 

ほ も ナル ト 
っ 少 , 衝 時 、、 っ 

の Mo し に eY こく 


19 SCREEN 1.2.9:COLOR 15,1, 

:STOP ON 

29 PHC=9:DEFINT A-Z:VPOKE &H2999+15,2x16 
・VPOKE &H2999+12.9x16 

39 A$(9)="bcbcbcbcbcbcbcbcbcbcbcbcbcbc" 

49 A$(1)= "cbcbcbcbcbcbcbcbcbcbcbobcbcb" 

59 ON STOP GOSUB 779 

69 FORL=1TO1 1 :READW : W=Wx8:FORI =WTOW+ 7 : RE 
ADD$:VPOKE TI, VAL("&H"+TD も ) :NEXT 1T。L 

/ り DATA 97.54)25.42。A8 。31 。4A。94。22 

89 DATA 98,99,19,28,14.68,A5,4A,。A5 

99 DATA 99,.99,99,99,99,31 ,4A,94,22 

199 DATA 199,38,.38,38.34.68,A5,4A,A5 

119 DATA 194,.99,99,.99,19,99,99,99,99 

1290 DATA 112.FF,99,FF,FF,FF,C3,C3。C3 

139 DATA 113,FF,FF,FF,FF , 99,FF,AA,55 

149 DATA 114,.98.18,18,FF,7E,3C,66,C3 

159 DATA 115,.49,73,7F, 7F, 7F, 4C, 49 , 49 

169 DATA 116,4C,7F,7F,7F,73,49,49,49 

179 DATA 121.99,19,38,.74,FA,F4,F5,74 

189 FORL=9TO11:A$="":FORTI=1TO32: READB$:A 
お =A$+CHR$ も (VAL( "8&H"+B$) ) : SPRITE$( し ) =A$: NE 
た 】 まし 

199 DATA99,89,49,2C,1E,18,1E,CC。DB , DD ,CB 
5D7。D1 .5F,1A,1B,99,99,99,99,99,99,99,99, 
99,99,CF,F4 69,99 ,99,99 


・ 180 一 300 スプ ライ ト デ ー タ 
・310 一 360 タイ トル 画面 

・ 370 一 450 画面 設定 

・ 470 一 510 自 機 移動 

・ 520 一 550 ミサ イル 発射 

・ 560 一 610 敵 の 爆発 

・ 620 一 770 瑞 の 物 動 
・780 一 800 自 機 の 爆発 

・ 810-870 ゲー ム オ ー バ ー 
・ 880 一 1000 ステ ー ジ クリ ア 処 理 
・ 画 チェ ン フ ボイン ト 


のど へ OOD あわ K うこ YNS 
SA ix 人 款 き ナ % 区 に の 5 と 2 うっ OO 7 PCUCSM TLS 

xi So) い cf は て cn VA ゲト を で や Ao 

Ko し で 1 ws ( 必 ve スケ ズー YUID で に ゲン レイ ボラ さら 

うく Rh た 3 0 抽 て の いい を ンコ 
we て で いい Pd H イッ ア 2 St と を う 3 る る し 


キャ ラク タダ が と て も いい で すね 。 距離 


・ ます が 、 画 面 の 表示 が な こ 、 ち よ ょ つと ま 

・ の びす る 感じ で す 。 
740 和 TP= ニ TP 1 : の 次 に LOOCAE 

。・ ら , の : PRINTUSING " 壮 半 半 半 7: 

・ を 付け た し て みて ご こ だ さい 。 

・ (エイ キチ ) 


299 DATA1D,9B,96,9E,1C,28,3E, 99 ,99,99,099 
> りり ,99,99。99,99.89.C9.E9, 79,28,38,3E,99 
り 9,99,99.99、99,99,99,99 
219 DATA99,99,99,99,99,99,99,91,94,99,91 
>99,99,99,99,99,1C,54.98.94.29.88,29,98, 
89,12.99,99,99.99,99,99 
229 DATA99,99,99,99,99,99,93,9F,F8,17,1B 
> り 91 ,99,99。99,99,99.99,1C,3C,7C,FC,F9,E8, 
28,.E8。F9.F8,7C,1E,97,FF 
239 DATA99,99、99,99,99,99.97,78,78,97,99 
99,99.99,99.99,7F,97,97,9F,9F,FB,34,F5, 
FPS,34。FB,9F,9F,97,.97,7F 
249 DATA99,3E,93,.93.91,99,97,F8,F8,97,99 
ぅ り 1 93,93。3E,99、99,93,97,8F,BF , DC, 61 ,FD, 
FD,61,DC, BE ,8F,97,93,99 
259 DATA99,99,99,99,C9.E9,F9,F8,1F,D4,BF 
>46,28,FF,98,FF,99,99,99,99,99,99,99,79, 
FC,17.F8 99,99,F9,99,99 
269 DATAC9,69,39,1C,9F,97,18,17,17,18,97 
>9F,1 じ 。39,69,C9 、99 ,99,99,99,99,C9,38,C7 , 
C7 ,38 。C9 99,99,99,99,99 
279 DATAC9,E9.F9,FF,91.99,99,15,15,99,99 
y り 1,FF,F9,E9,C9,99,99,99,79,89,C9,E9 , 9F , 
9F,E9,C9,89,79,99,.99,99 


レ た / 


・「P ガ 200 に な る と ステ ー ジ フリ ア に な り の 


289 DATA99 ,99,99.99,99.99.99,.A5,D9,9A,94 
,D9 ,99,99,99,99.99,99.99,99,99,99.89, 99, 
A9 , 99 , B9 , A9,99,99,99.99 

299 DATA81,.91.92.25、55,.D5,A9,.35,AS,SB,6C 
,11,9A,95,81,92,C1,49,A4,74,A9.94,A5,75. 
22.54.92.A9,C8,29.59,A9 

399 DATA99,99.90.99,99,99.99,FB,FB,99,090 
>99,99,99,99,99,99,99,99,99,.99.99,99,EF, 
EF , 99 ,99,99.99,.99.99,99 

319 CLS:LOCATE6,5:PRINT"[END LESS WAR]": 
LOCATE 3,22 

329 PRINT"(C) 1984 MASAKI SATOH" :LOCATE 
7,29:PRINT "HIT [SPC] KEY":NK=2 

339 SC=9:TP=9:TW=26:S=9:MS=9:PUTSPRITE9 , 
(119.55),15:PUTSPRITE1,(119,71),15 

349 PUTSPRITE3,(119,94),5:PUTSPRITE4,(15 
9.94),.5:PUTSPRITE8,(75,139 ) ,14 

359 PUTSPRITE5,(75.94).5:PUTSPRITE6,(119 
139) ,14:PUTSPRITE7,(159,139) ,14 

369 ST=STRIG(9)+STRIG(1):IE ST THEN CLS: 
GOTO 379 ELSE 369 

379 FORI=9TO11:PUTSPRITEI,(9.9)、9:NEXT:F 
ORI=9TO59 

389 R=RND( 1 )x27:R1=RND( 1 )x29:LOCATE R,RI1 
:PRINT"h":NEXT 

399 LOCATE9,9:PRINT"LEFT : 2":LOCATE15,9 
:PRINT"SCORE : 9" 

499 FORI=9TO27:FORL=21TO22:LOCATEI,L:PRI 
NT CHR$(97) :NEXTL , 1 

419 FORI=9TOSC+1:LOCATEI,1:PRINT" "ENEXT 
:SQ=9:FORI=9TOSCELOCATE9+SQ,1:PRINT"T" 
429 PLAY"V1306A19":SQ=SQ+1:FORL=9TO599:N 
EXT L,I:A=199:B=199:FORI=2TO11:PUTSPRITE 
1,(9,9) ,9:NEXT 

439 PLAY"T299L6905V13S9M69999B9R9A6GSB9A 
9B906C9" 

449 FORI =12TO8STEP-1:PLAY"V=I5D5":NEXT 
459 EX=9:EY=RND(-TIME)x149+19:EQ=RND( 1 )※ 
3+6 

469 X=249:Y=RND(-TIME)x149+19:PUTSPRITEQ 
> (9,9) ,9:Q=RND( 1 ) \3+3 

479 PUTSPRITE9,(A,B) ,15:PUTSPRITE1 ,(A,B+ 
16),15:PUTSPRITE2。(9,193) ,9 

489 ws=STICK(9)+STICK(1):C=(W=6)+(W=7)+(W 
=8)-(W=2)-(W=3)-(W=4) 

499 D=(W=8)+(W=1)+(W=2)-(W=4)-(W=S)-(W=6 
) :C=CX19:D=DxX8 

5S599 IF B>133 AND A-8>15 THEN A=A-8 

519 IF A+C く 15 OR A+C>239 OR B+D く 8 OR B+D 
>149 THEN C=9:D=9 

529 ST=STRIG(9)+STRIG(1):IF ST _ AND MS= め 
THENPLAY "03S6M599DDDDDD":MS=1:MX=A:MY=B 
S539 PUTSPRITE19,(9.9),9:IF MS=1 THEN MX= 
MX+14 ELSE 629 

S549 PUTSPRITE11,(MX,MY) ,13:1F MX>249 THE 
N PUTSPRITE 11.,.(9.9) ,9:MS=9 

559 IF X-29= く MX AND X+29>=MX AND Y-19= く M 
Y AND Y+19>=MY THEN 569 ELSE 589 

S569 PUTSPRITE11.(9.9),9:PUTSPRITE9 (9,9) 
>9:PUTSPRITEQ,(X,Y),4:PUTSPRITE109,(X,Y) 。 


8 

579 FORI=9TO299:NEXT:PUTSPRITEQ, (9.9),9: 
MS=9:S=S+199:X=249:Y=RND( 1 )※149+19:Q=RND 
(1)x3+3:GOTO6169 

589 IF EX-29= く MX AND EX+29>=MX AND EY-19 
= く MY _ AND EY+19>=MY THEN 599 ELSE 629 

599 PUTSPRITE11.(9.9).9:PUTSPRITEEQ, (EX,。 
EY),14:PUTSPRITE19,(EX,EY) ,8 

699 FORI=9TO299:NEXT:PUTSPRITEEQ,(9.9).9 
・MS=9:S=S+59:EX=19:EY=RND( 1 )X149+19:EQ=R 
ND( 1 ) *3+6 

619 PLAY"O8V13S19M5999D64E64" :LOCATE22 9 
・PRINT S:GOTO 479 

629 PUTSPRITE9,(X+13,Y),9:IF D く 9 THEN PU 
TSPRITE2.(A-12.B+14).,8 

639 IF B+5>149 THEN 649 ELSE B=B+4 


レア 。 


649 LOCATE9 ,29:PRINT A$(PCH ) : PCH=PCH+ 1 : 1 
ド PCH=2 THEN PCH=9 

659 LOCATETW,19:PRINT CHRS121)+" "iLOCA 
TETW,29:PRINT CHR$ も ( 199 )+CHR$ も (98 ) 

669 TW=TW-1:IF TW=9 THEN LOCATE1 19:PRIN 
1 "STW=26 

679 X=X-7:PUTSPRITEQ.(X,Y) 5:PUTSPRITE9 
(X+13.Y),8:IF X< く 9 THEN GOTO 469 

689 IF X-15= く <A AND X+15>=A AND Y-15=< く B A 
ND Y+15>=B THEN Y=RND( -TIME)※149+19:X=25 
9:Q=RND( 1 )x3+3:GOTO 789 

699 Y=Y+Z:IEF B-19>Y THEN Z=19 ELSE IF B+ 
29 く Y THEN Z=-19 

799 IF Y+Z>148 THEN Z=-8 

719 EX=EX+8:PUTSPRITEEQ, (EXJEY),14:1F EX 
>245 THEN EX=9:EY=RND( -TIME)%*149+19:PUTS 
PRITEEQ,(9.9) ,9:EQ=RND( 1 ) 3+6 

729 IF EX-15= く <A _ AND EX+15>=A AND EY-15= く 
B AND EY+15>=B THEN EY=RND(-TIME)%149+19 
・EX=9:EQ=RND( 1 )※3+6:GOTO 789 

739 EY=EY+TEZ:IF B+16<EYTHEN EZ=-6 ELSE E 
=6 

749 TP=TP+1:IF TP>199 THEN TP=9:GOTO8809 
759 IF EY+TEZ>148 THEN EZ=-5 

769 SR=RND( -TIME)x13+2:VPOKE &H2999+13.S 
Rx16:A=A+C:B=B+D:GOTO 479 

779 COLOR 15:CLS:SCREEN 9:WIDTH 49:PRINT 
"GOOD-LUCK ! GOOD-BYE ! "IPLAY"V1306B25D1 
9B25D19":END 

789 NK=NK-1:IF NK=-1 THEN 819 ELSE LOCAT 
E6.9:PRINT NK:MS=9:PUTSPRITE2 (9.9),9 
799 FORI=BTO145:PUTSPRITE9,(A。!I),15:PUTS 
PRITE19。(A, エ 上 +4).8:PUTSPRITE1.(A。I+16),15 
899 NEXT:PUTSPRITE11。(9.9).9:A=199:B=1099 
・EFORI =9TO03999:NEXT :PUTSPRITE6 , (9.9) ,9:GO 
TO 4109 

819 FORI=9TO11:PUTSPRITEI。(9.9).9:NEXT:E 
ORI=9TO027:LOCATEI,9:PRINT" "ENEXT 

829 PLAY"V1403F19R29F19E5G5R19F19R29F109E 
5G5R29G19R29G19F5B5A19G19F19E19C5" 

839 VPOKE 8223.&H99:LOCATE9.7:PRINT "GAME 
OVER ":LOCATE7。19:PRINT "YOUR SCORE" 5S 
849 IEFS>HSTHEN HS=S:LOCATE4。19:PRINT "YOU 
MADE HIGHT SCORE" 

859 LOCATE6 ,13:PRINT "HIGHT SCORE" 5 HS:LOC 
ATE7,16:PRINT "PUSH LSPC] KEY" 

869 ST=STRIG(9)+STRIG( 1):SR=RND( 1 )X13+2: 
VPOKE &H2999+13.SRx16 

879 IF ST THEN FORI=9TO2999:NEXT:GOTO 31 
9 ELSE 869 

889 LOCATE9,29:PRINTA や (PHC):LOCATETW+ 1 。1 
9:PRINT" "FORI=2TO11:PUTSPRITEI (9.9),9 
899 NEXT:FORI=ATO15STEP- 1 :PUTSPRITE9 ,(。 
人 B。452PUTSPRUTEI .(1、B*16) 。15 

999 NEXT:A=15:FOR IT=B TO 149:PUTSPRITEW9 , 
(A,I),15:PUTSPRITE1 (A+T16) 15:NEXT 

919 FORI=21TO13STEP-1:LOCATE9.29:PRINT A 
$(PHC) : PHC=PHC+1: IF PHC=2 THEN PHC=9 

929 LOCATEI,29:PRINT "qqqqcdc" iLOCATEI 1 
9:PRINT "pppp y " 

939 LOCATEIJ18:PRINT"S "FORL=9TO159:NEX 
り 細 | 思 夫 | 

949 FOR I=A TO 199:PUTSPRITE9, (IT,149),15 
:PUTSPRITE1 (II,。156) ,15:NEXT :MS=9 

959 PLAY"L19V1304S9M69999AGFGABABO5C1" 
969 FORI=9TO15:LOCATE13.18:PRINT "SS":FORL 
=9TO0399:NEXT LELOCATE13,.18 

979 PRINT"t "EEFEORL=9TO299:NEXT L:SR=RND( - 
TIME)%13+12:VPOKE &H2999+13.SRX16:NEXT 1 
989 A=199:B=199:LOCATE13.18:PRINT" "ESC= 
SC+ 1 

999 LOCATE13.19:PRINT" "LOCATE9 。20 
:PRINTA$(PHC) :FORI = 1 49TO199STEP- 1 

1999 PUTSPRITE9。(A,I),15:PUTSPRITE1 ,(A, 1 
+16),15:NEXT:GOTO 419 


そ ク ラ の 六 色 に 法 意 ./ 聞 ケ ケー ル 灯 記 で な 6 し ろ さ / ど 


モグ フタ タキ 


に 7 も b に つい 
で 円 の きつ ので つの グ S 
ーー 


の ・ ・ ロロ の > の 
> ビビ つ ど + ーー< 


は 一 O(O 宙 の 31 の の に 2 は て で う の キト ウー・ 


・ の ーー ベベ で の ざー ンー 


SMSX の ハー ド に あわ せ た ル ー ル 

な な じみ の モグ ラ た た だき 。 で も 、 ム 
つう の や つと ちょ っ ょ 人 う 。 

まず 、 モ グラ は 4 ヵ所 に し か ヵ カ 現 れ な 
い 。 つ まり 、 上 下 左 右 の 中 央 に ある マ て 
ス 上 邊 に し か 貞 て こない わけ だ 。. こ れ は 
マイ ナー チェ ンジ の よう に も 思え る け 
れ と 、 テ ン ・ キ ー の か わりに カー ソル 
・ キ ー の つい て いる MS に あわ せ だ た だ 
も の だ ろう 。 

だ か ら 、 使 用 する の は カー ソル ・ キ 
ー。 上 下 左 右 の どこ か に モグ ラ が 現れ 


「 
ms や | は ん の 6 た か 2 - 
mm ん 人 へ 松 な 本 5 いな パ O ぽ ぼ 
SS 上 よ 大 # が ソ 0O < W 
"大 シ < の 角 祝 い ュ コ 0 は - 
ョ バク が だ 聴 山 ま と を |i 
人 を X く 県 小 うふ 
W 持 1 9752 の 間 
且つ の も て と 学 
し に 
SD の 
1 幸 る 山 か ク 生 8 
邊 た 夫 当 
1 を 委 が | の で て 年 
し 4 (0 あ さ 電 
邊 アア 、 導 導 と We 人 絆 」 
和 の 今 く F 邊 
四 わ リ で し | 邊 
Ho で acor ao 


の の 
< 


039 
OR8 :GOTO89ELSESC 


,1 .B ド :PSET(9.96) , 1 
: GOT039 
、"GAMEOVER": IFST 


だ た ら 、 す ば や 〈 く それ に あっ だ キー を た 
だ た くべ で し 。 お 手つき は 減点 。 
ゲー ム オ ー バ ー に は 2 種類 

それ か ら 、 時 間 制 限 も ある 。 う まく 
モグ ラ を だ だ いて いけ ば 、 得 点 に 応じ 
て 時 間 も 伸 びる けれ ど 、 う か うか し て 
いる と 時 間切 れ ゲ ー ム オー バー。 こ の 
と き の ^GAME OVER” と いう 表示 は 
育て く な っ て いる 。 

赤い 表示 の “GAME OVER" だ っ た 
ら 、 それは 時 間切 れ で は な く 〈 く て 、 こ の 
『 モ グラ た たき 」 独 得 の ルー ル の せい 
7 

つま り 、 こ の ゲー ム で は クル クル ん 変 


マモ グ ブラ の 顔色 に ご 用 息 。 中 央 の 色 と 同 じ 
だ つた ら 危 険 。 を だ いち ゃ だ め / 


FOUR MSX 8K 
Y 大 舟 次 


田 変 数 リス ト 

X( )…… モ グラ の X 座 標 

Y( )…… モ グラ の Y 春 標 
K…… モグ ラ の 出現 し て いる 時 


間 

CO eee 本 

A…… 中 央 部 分 の 色 

( う otr8ee モグ ラ の 色 

B…… モ グラ の 出現 する 位置 

ご ssss さ る キー 入力 

田 プ ロブ ラム の 説明 

10-20 初期 設定 、 画 面 設定 、 
スプ ライ ト 定 義 

30 時 間 ぎ れ か が 

40 モグ ラ の 位置 、 中 央 部 
分 の 色 決 定 

90 中 央 部 分 、 モ ブラ 表示 、 
キー 入力 


60 あ だ つ だ か ゃ 

70 スコ ア 表 示 

60 ゲー ハム オー バー 

90 スプ ライ トド デー タ 
モグ ラ の 位置 の デー タ 

田 チ ェ ッ フク ボ ポイ ント 


で も だ の し ぐ 遊 べ る ゲー ム な の 
で す が 、 ひ ね ぐれ 者 の 私 は 、 以 
下 の よ うに 改造 し て み ま し た 。 

20 行 ー: FOR 1=1 TOZ 
STEP2 : を FOR 1=1T 
O8 

40 行 の B= ニ FNR (4, 1) 
x ジ ー1 : を B= ニ FNR (8, 
1) 

90 行 の 3 行 目 ー21, C1, 
より 後半 を 、1 42, 38, 1 
お, 38, 182. Z8, 1 
8 ら , 118,。 142,.118, 
1 0 の 2, 148。 1 の 2, 78, 
1 2, 38 
こつ する と 、 モ グラ が 中 央 部 分 
分 を の ぞ く ぐす べ て の 場所 に 出現 
し ます 。 キ ー は カー ソル の み で 
す 9。 や だ らむ ず か し ぐ な り ま す 。 


わる 真中 の マス 目 の 色 と 、 今 た た いた 
モグ ラ の 色 が 同じ に な る と アウ ト に な 
う て も し まう の だ 。 

だ か ら 、 い つも 真中 の マス 目 の 色 を 
移 に し つつ 、 モ グラ が どこ に 出現 する 
か 、 そ し て を その 色 は 真中 の 色 と 同 じ で 
は な いか 気 に し な が 6、 や っ て いく こ 
と に が る 和 。 

この 新 ル ー ル が ひと つ 入 っ た だ け で 
相 張 感 が ズ ッ と 違っ て きた 。 
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⑯) よこ < で て きた 正 し 
い カ ー レ ー ス 


も と も と の タイ トル に は 、 い ちち おう” 
と いう の が つい て いた だ たん だ けれ ど 、 採 
用 通知 を 出し た ら 、 返 っ て きた 手紙 か 
ら は この 4 文字 が 抜け て いた 。 そ うか 、、 
作者 が を うい う の な ら …… と 、 い ち お 
う “いち お う ” は 取っ て 掲載 し た つも 
り だ っ だ ん だ けど 、 よ (考え た 6、 タ 


ER 


! 今後 も 仕事 の 
! 中 を 見 て ゲー 
ム を 作り た い 
知 だ た す て い や 
2 

培 こ か れ 
し ろり な ム / 
か あし ん と 


っ 突き 
然 


*M 


: 採 
用 
通 


芝 こ 2 


し は 8 8 BR は HB HB 8 3 BE BE 8 3 BB 8 3 3 コ 


つ 
は 


0 


ーー 
OO 
ーー 区 は と 
で 全 正 護 欧 き 


で 還 晴 聞 天 騰 全 昌 本 昌 | 衣 衣 月 8 月 8  」 
ce 
ン 


【 BR  B 3 ま % 8 3 E 8 8 」 


S て Oc 人 4 ス リツ 、 と 敵 の 車 を よ け つ つ 


@ ご これ が 、 や つば り カ ー レ ー ス だ / ノ し 
カー ー ム 
Car レー ス Game 
FOR 人 MSX(8k) 


oooooooooooooOooOOO0OOOO の 5 の の 


ぶさ いちおう ……… っ て 品 
て る じゃ な いか 。 
や っ ぱり 、 こ の ゲー ム 
は 、『 い ち お う Car レ ー ス 
Game』 な ん だ な あ 。 


時 グン ブン グン と スピ ー ド アッ プ 


で も いち おう 電電 

と いっ て も 、 い みろ いみ ろ 
ラ え ある 。 確か に スタ ンダ 
0 ー ド な Car シ ー ス だ け 
レプ ど 、 こ の ゲー ム は リス 
計ら ト が 短い わり に よく 《 ま 
ま ば ょ まっ て いる の だ 。 で 、 
いち ち お う 、 標 準 作 と い 


うこ と で 採用 し まし た 。 


を アフ セル と プレ ー 
9 スペース キー 


RUN す る と 、 タ イト ル 画 面 。、 ス ペー ス 
キー を 押す と ゲー ム ス タ ー ト が だ 。 

ハン ドル は 、 カ ー ソ ルキ ー。 走行 中 
は 、 ス ペー スキ ー を 押す と 、 ス ピー ド 
が 速く な る こと に な る 。 

右 下 に ある 棒グラフ の よう な も の は 
ス ゼ ー ド メー ター だ 。 

スペ ー ス キー は 、 は な すこ と で ブレ 


ロ 
Dc 


ー キ の 人 役目 も か ね て い 
る ぞ 。 
スタ ンダ ー ド な ゲー ム と い 
っ て も 、 ち ゃ ん と 敵 の 車 が や 
っ て き て 、 わ き を 通り 抜け て 
い 〈。 こ の 動き が 結構 いい の 
で 、 単 純 な ゲー ム だ けど 、 お 
も しろ い の だ 。 

スコ ア が 1000 点 を 超え る と 、 ブ ーッ 
と いう 音 が 鳴っ て 、 道 路 の 左側 か ら 妹 
地帯 が せま っ て 〈 る 。 車 の 動き も この 
と き お そく 〈 く な る 。 

この 緑地 帯 は 減点 ゾー ン で 、 の りあ 
げ て 走行 し て いる と 、 思 いき り 減 点 き 
れる の で 、 注 意 す る よう に 。 地 帯 は 
以後 、3000 点 ご と に 出現 す る 。 

ほか の 車 と 衝突 し た り 、 道 路 か ら は 
み 出 た りす る と 、1 台 減り 、5 台 全 部 失 
な つと も グー ム オ ー ノ パー だ 。 

再 ゲ ー ム は 、 ス ペー ス ・ キ ー。 
特に いう こと は な に も な い 。 ごく ふ 
つう の エキ サイ ティ ング な カー レー ス 
ファ ン に お すす め の 作 品 だ 。 

作者 は 今年 の 4 月 で 社会 人 だ そう で 、 
を うい えば 、 こ の ゲー ム の 担当 の クー 
も 今年 か ら 社 会 信 。 こう し て 、 ポ シェ 
ッ ト は ひと り 、 ふ た だ たり と 社会 人 方 面 へ 
も 関係 者 を 増やし て いく の だ っ た 。 読 
者 の な か に は 社会 人 を 卒業 し た 70 蔵 の 
お じい さん も いる ん だ や ぜ 。 
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画 変 数 リス ト : GX…… 緑 地帯 の X 座 標 
A…… カー ソル キー 入力 用 Se 緑地 帯び が びあ る か 

ーー スベ ー ス バー 入力 用 | (1 、 の ー あ る 、 0 一 な し ) 
AX.AY…… 自 車 の 座標 ・ K…… 緑 地帯 の 発生 スイ ツチ 

…… 自 車 の 残り 数 ・ CY…… 恋 い ポ ボイン ト の YY 座標 
BX.BY…… 敵 の 車 の 座標 : PS…… い ボイン ト の スピ ー ド 
…… 敵 の 車 の 物 動 方 向 ・ SMX…… ス ピー ド メ ー タ ー の X 護 標 

0 一 左 、1 一 右 ) : SP.SM…… ス ピー ド 
…… 敵 の 車 の 和 動 距離 ・ SC…… ス コア 
| 敵 の 車 の スピ ー ド : SX…… 加 算 す る スコ ア 


1 人 凶 '※ 光 洋洋 ※ 光 区区 区 デメ 


2 '※ いち お う ・・・ ※ 
3 "※% Car レ - ス Game ※ 
4 '※ ※ 
59 '"※ by JJ.HaSUi ※ 
56 り 9 '※ ※ 


79 '※ 1984.11.28 ※ 

8 '※※※※※※※※※※※※※※※※ 

99 CLEAR 399:COLOR 15,1.1:SCREEN 2,2:GOS 
UB 579:ON SPRITE GOSUB 889 

199 PSET(59,119),5:PRINT ##1,"HIT SPACE K 
EY > 

119 B=STRIG(9):IF B く >-1 THEN 119 

129 LINE(59.9)-(159.191),5,BP 

139 SPRITE ON 

149 GOSUB 159:GOSUB 199:GOSUB 249:GOSUB 
289:GOSUB 459:GOSUB 599:GOTO 149 

159 A=STICK(9 ) 

169 IF A=3 THEN AX=AX+16 

179 IF A=7 THEN AX=AX-16 

189 PUTSPRITE 1,(AX,AY),15.9:RETURN 

199 B=STRIG(9):IF B=9 THEN SP=SP-5 

299 IF SP<9 THEN SP=9:GOTO 229 

219 SP=SP+1:IF SP>36 THEN SP=36 

229 AY=INT(179-SPx1.5) 

239 RETURN 

249 IF AX く <59+GX THEN IF G く >9 THEN SC=SC- 
3 の 

259 IF AX>134 THEN 889 

269 IF AX く <59 THEN 889 

279 RETURN 

289 IF BY>299 THEN BY=-24 

299 IF BY く <-24 THEN BY=299 

399 BS=2xSP-23: BY=BY+BS 

319 IF BX く <69 THEN D=1 

329 IF BX>124 THEN D=9 

339 C=INT(RND( 1 ) x9 )+2 

349 IF D=1 THEN BX=BX+C 

359 IF D=9 THEN BX=BX-C 

369 PUTSPRITE 2.(BX,BY) ,11.,9 

379 IF CY>191 THEN CY=-16:BEEP:L し = し L+ 1 
389 IF G=1 THEN SX=200 

399 IF G=9 THEN SX=109 

499 IF L=2 THEN SC=SC+SX: GOSUB 999 

419 PS=2XSP:CY=CY+PS 

429 PUTSPRITE 3。(34,CY) , 8,1 

439 PUTSPRITE 4,(143。CY),8,1 

449 RETURN 

459 SM=SP 

469 SMX=SMxX2+175 

479 LINE(179,143)-(SMX, 152 ) , 8 , BF 

489 LINE(SMX, 143)-(242,.152) ,12,BF 

499 RETURN 

S99 IF SC=K THEN G=1:PLAY"A":K=K+39099 
S19 IF G=9 THEN RETURN 

S29 IF GX>45 THEN G=2 

S39 IF GX く 9 THEN G=9:GX=9 

S49 IF G=1 THEN GX=GX+2:LINE(59+GX ,9 ) -(5 
1+GX。191).2。BE 

S59 IF G=2 THEN GX=GX-2:LINE(55+GX ,9 ) - (5 
6+GX 。 191 ) 5。BE 

S69 RETURN 

S79 LINE(42.9)-(158,191 ) ,15,BF 

S89 LINE(59.9)-(159,191 ) ,5,BF 


SR 28208880。 
2 3 2 2 S 
か 2 2 0 5205086585595oooXS205oo6506c82085255w 2 


・ し …… ス コア 加算 スイ ツチ ・ 370 一 440 赤い ポイ ント 物 動 、 得 吉 計 算 


・ HS…… ハ イス コア ・ 450 一 490 スピ ー ド メー マー 表示 

: 征 S.X$…… ス プラ イト 作成 用 : 500 一 560 緑地 帯 の 発生 と 表示 

: 田 プ ロブ ラム の 説明 ・ 570 一 870 画面 作成 、 キ ャ ラフ る 定義 
: 90-130 初期 設定 : 880-920 は みだし ・ 衝 突 処 理 
・140 メイ ン ル ー チ ン ・ 930-970 ゲー ム オ ー バ ー 処 理 

・ 150 一 180 自 車 の 移動 : 980 自 車 の 残り 数 表示 

・ 190-230 スピ ー ド 計算 ・ 990 スコ ア 表 示 


: 240 一 270 は みだし 判定 ・ 1000 自 車 ・ 敵 の 車 表示 
: 280 一 360 敵 の 車 の 秘 動 


KAOoC202000000 


699 A=RND( -TIME):SP=9:AX=134:AY=179:BX=5 
9:BY=59:D=1:SC=9:CA=5:K=1999:HS=9 

619 FOR J=9 TO 2:X$="" 

629 FOR I=9 TO 31 

639 READ T$:X$ も =X$ も +CHR$( VAL( "&H"+T$) ) : NEX 
T I:SPRITE$(J ) =X$ 

649 NEXT J 

659 " car 

669 DATA 1F,1F,77.7E,7C。74 。94 ,3D, 3D, 3F , 9 
5.F5,F7,E9,E9 ,E6 

679 DATA F8,F8,EE,7E、3E,2E,29 、BC,。BC,FC,A 
9 り ,AF,EF , 97 ,97,67 

689 "point 

699 DATA 99,.99,.99,99,99.99,99,99,99,99,9 
り ,99,99,99,99.,099 

799 DATA FEF,FF,FF,FF。FF,FF,FF,FE,FF ,FF,F 
F,FF,FF,FF,FF ,FF 

719 'explOSion 

729 DATA 94.9C,.9F,、38。F4.27.28.25.24.67,6 
6 。 ド 2 。 3F 。33 。 20 。20 

739 DATA 29.39.F8,1F,4E,CE、24.94.A4.2E,E 
パャ し 4。 PC EE,。41 

749 OPEN "GRP:" AS #] 

759 PSET(294.9),15:PRINT 1 "SCORE" 5 

769 PSET(294,16) ,1:PRINT #1,RIGHT$(" 
"+STR$(SC) ,5): 

779 PSET(229,49),1:PRINT #1 "ノコ リ " 5 

789 PSET( 293,56 ) , 1 :PRINT #1 RIGHT$(STR$( 
(CAD 。2)3 “タイ”? 

799 PSET(189.89) ,1:PRINT #1 "HI-SCORE" : 
899 PSET(294.96) ,1:PRINT #1 。RIGHT$(" 

よら 5TR も (HS) 5 ) : 

819 LINE(179,143)-(242,152 ) , 12。BF 

829 PSET(168.132)。1:PRINT 1、"9 1 2 3 


839 PSET(176,.157),1:PRINT 1,"Xx199Km/h": 
849 PSET(58,75),2:PRINT 揚 1 "いち お う ・・・ "5 
859 PSET(74.83).2:PRINT 1 "Car レー ス " 5: 
869 PSET(114.91).2:PRINT 拉 1。 "Game"i 

879 GOSUB 1999:RETURN 

889 SPRITE OFF:PUTSPRITE 9,(AX,AY) , 6,2 
899 FOR I=9 TO 39:BEEP:NEXT I 

999 PUTSPRITE 9,.(9,-16) ,9.2 

919 CA=CA-1:IF CA=9 THEN 939 

929 GOSUB 989:GOSUB 1999:GOTO 199 

939 PSET(68.99) ,5:PRINT 1. "GAME OVER": 
949 IF SC>HS THEN HS=SC:LINE(294,96)-(24 
4 194),1,BF:PSET(294.96 ) ,1:PRINT 拉 1,RIGH 
T$(“" "+STR$(HS) ,5) : 

959 FOR 1=9 TO 49:BEEP:NEXT I 

969 PSET(64,199),5:PRINT 持 1 "AGAIN GAME" 


979 SC=9:CA=5:SP=9:K=1999:GOSUB 989:GOSU 


B 999:GOSUB 1999:GOTO 199 


989 LINE(294.56)-(218.64),1。BF:PSET(293, 
56 ) , 1 :PRINT #1 ,RIGHT$(STR$(CA ) ,2) 1) :SP= : 
AX=134:AY=179:BX=59:BY=S9:G=9:GX=9:RETUR 
N 

999 LINE(294,16)-(243,24),1.BF:PSET(204, 
16 ) , 1 :PRINT #1.RIGHT も (" "+STR$ も (SC) , 5 ) 
>・: し = り 9: RETURN 

1999 PUTSPRITE 1,(AX,AY),15.9:PUTSPRITE 
2,(BX,。 BY ) 。 1 1 .9: RETURN 
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写真 を 見 る と 、 異 様 に 大 
き な 敵 キャ ラ が 気 に な る だ 
ろう 。 こ れ は 、 要 する に ぶ 
つか りや すい よう に 大 きく 
し だ た の だ と 思わ れる 。 ンジ 
ン の 炎 の 出る と ころ な ん て な 
か な か 芸 の 細か が かい ゲー ム 。 


漂流 物 に ぶつ 
か が ら な いで / 

RUN し て か ら 、 い き な り メイ 
ン ギ シン ジン MD を ふか し て 、 
スピ ー ド を あげ よう 。 

時 速 20 キ ロ を 超え る と 、 人 工 
衛星 や 了 石 が ボコ ッ と 現れ て き て 、 な 
な め や 真 上 か が ら お なお り て 〈 く る の だ 。 

この 敵 は 、 カ ー ソ ルキ ー の EBI で ふ 
か す ジ ェ ッ ト の 加減 で 左右 に よ け て い 
こう 。 ギ キミ は で きる だ け は や く 5000 キ 
ロ を と ぶ の が 目的 な の だ 。 

た だ し 、60 キ ロ 以 上 で 飛ば な いと タタ 
イム オー バー に な っ て し まう か ら 、 気 
を うき MM。 


時 速 が 0 キロ 以下 、 タ イム オー バー、 


画面 か ら の は みだし 、 障 害 物 と の 接触 
ーー この まれ が ひと つう て 、 ド バーン 。 


四 つ の 万 向 に ちゃ 
めど エン ジン 何 き 


使用 キー は カー ソル キー の み 。 
試し て みる と わか る けど 、 叶 で メイ 
ン エ ンジ ン 噴 射 、T] て 逆 噴射 。 に EIC 
左右 の エン ジン 噴射 。 こ の ゲー ム の 楽 
し いと ころ は 、 こ の 噴射 の 炎 が ちゃ ん 
と 出 て て る と ころ 。 そ れ に 、 も ちろ ん 
宇宙 な も ん て 慣性 が つい て いる が から 、 
エン ジン を ふか が し た っ て すぐ で に 行き だ 
い 方 向 に 行け る わけ じ や な い の だ 。 
ブログ ラム も わり と 短 か く て 、 こ の 


@ で つが ガ い 漂流 物 が 流れ て きだ ぞ / 


っ 「S-99 


FOR MS 火 (8 に) 


ちよ つと ん も だ ゲー 
ム は 、 わ りか し 評 


剃 いい の だ 。 ENERG マ 

員 有 MM の イイ ら 9 
ジュ ワー ツ と エエ 還 を を 4 る 

ンジ ン を ふか し て 、 和 ラ イア に に 大 ノン 妨 


頼り な 〈 く 飛び な が に 0 に ま > の 提議 > あ た 


ー ユ H4A 


dl 還 . で は て …… 


ー 泌 洗 志 


ら 、 障 害 物 
が 目 の 前 に き て 

も すでに は よ け ら れ 
な いも ど が し る 。 と こと 
れ が な か な か お そろ し く 、 お も し ろ い 
ん だ よね 。 


0 MM MM MM WM WM MA WM 有 B 上 


人 | 
lsS sohslso ま の マン 者 
馬 人 AI KIX も は ほ て イ に 立 | | 
W リノ / 六 う 2 東上 ョ 』 
EAA NAS し oO 5 ? 7 負 礎 間 和 
の の _ IO | の 0 の IO Q 1 の の 
ktdIMIi ま する 
Ho し けり と て 
MM 0 AA 半 2 ィ ( あ : - 
W そ S 大 全 RS き W 
WS NAS SS AS | 人 メ X べ 運 Al 
II IL で を テ 転 ! 
22282 8 の 2 2 の 
0 衝 上 衝 幕 た で し は 
目 一 一 ーー ーーー ーーー 2 メ \ 
いく トト いく に ・ ー で ホホ な イ - 
人 9 9 の 人 し X つ 2 M 
8 028 人 
h 。 。 。 。 <。- 
LM 雪 10 9 が. 。0 の の 突 べ 68 あ 2 | 
1 
ー 
』 芝 ち ゃ ん 、 い っ し ょ に EX 『* 
W 9 ee 邊 
Bl PO'85 見 に 行こ ー! 邊 
| W 
I KATSURA/ 1 
過 7 


ト 。 前 朋 HI MM  M 上 BMB IM I っ 


お お つと 、 油 断 し なむ まつ だ 。 な ん か 
まめ ぬけ そう な お 随 石 が 近づい て ぐる / 


4 ムズ ガー ン !! 壁 ぎ 
わ ま で 追い つめ られ 
て や られ て し まつ た だ 


し た 』 


画 変 数 リス ト ) io 多め ウ 

X…… シ ャ トル の XX 座標 ・ し ……TIME の 値 

H…… シ ヤ ト ル の 水平 速度 Oo カウ ンタ 

V…… シ ャ トル の 速度 ・ P……% 秒 カウ ンタ 
D…… シ ャ トル の 飛 距離 S ST スコ ヨ ア 、 ハイ スコ ヨ ア 
E…… シ ャ トル の エネ ルギー ・ ……BASE(8) 

O…… シ ャ トル の 数 ・ Y……BASE(9) 

M( )…… シ ャ トル の 水平 加速 度 : |……STICK 関 数 用 

N( )…… シ ャ トル の 垂直 加速 度 : 圧 プ ロブ ラム の 説明 
B…… 漂 流 物 の 番号 ・ 10 一 30 初期 設定 

X( ).Y( )…… 漂 流 物 の 座標 ・ 40 一 50 スプ ライ ト 定 義 


H( ): 


漂流 物 の 水平 速度 60 一 140 画面 作成 


・ 150 サウ ンド ・ 560 音楽 が な つて いる か 判断 する 
: 160-170 キー 入力 待ち ルー チン 

:・ 180-230 シャ トル 移動 : 570 加速 度 デ ー マ 

: 240 一 260 名 種 数 値 表示 ・ 580 一 660 スプ ライ ト デ ー タ 

: 270370 漂流 物 の 発生 と 和 動 : 670 一 680 画面 の 文字 デー タ 

: 380-410 メイ ン ル ー チ ン あ と し まつ  : 690 音楽 アー タ 

: 420 一 440 5000km 突 破 ! ・ 画 参 考 ' 

・ 450 スプ ライ ト の 初期 化 : プロ グラ ム ポ シェ ッ ト VOIL2「 ス ー パ 
460 


イン ター バル ルー チン ・ 一 プ ブロック < ざし 


・470-480 シャ トル 爆発 
・ 490-540 ゲー ハム オー バー 処理 


オー プ ニ ン グ の 音楽 


19 SCREEN1 3.9:WIDTH31:KEYOFF:DEFINTB-Z: 
DEFSTRA,G:Z=BASE( 8) :Y=BASE( 9 ) ' 

29 DEFFNR(X)=INT(RND( 1)xX):B=RND(-TIME): 
DEFFNG(X,Y)=RIGHT も (STR$ も (X+19^Y) ,Y ) 

39 ONINTERVAL= 12GOSUB469:FORI=9TO8:READM 
(TI),N(I):NEXT 

49 C=9:FORI=1TO18:READA:FORJ=1TO031STEP2 
S59 VPOKEY+C,VAL("&H"+MID も (A,J。2) ) :C=C+1 : 
NEXTJ, 1 

69 COLOR15,9.9:FORI=9TO023:LOCATE8 ,I:PRIN 
TPIVTSSPC(29) う 7175:NEXT 

79 FORI=1TO7:READB,C,AELOCATEB,C:PRINTA: 
・NEXT:T=9 

689 GOSUB559:RESTORE689:FORI=1TO7:READB,C 
5D:LOCATEB ,C:PRINTSTRING$(D, "9") 1 :NEXT 
99 LOCATE1.2:PRINTFNG(TJ5)1"9 の "5 ER=1:D=9: 
0=3:S=9 

199 LOCATE6,22:PRINTFNG(R,2) 1 :PUTSPRITE9 
(8.56-153X(0 く 3) ) ,。14。9:X=144: 上 し =199 

119 PUTSPRITE1 ,(49.56-153x(0=1 ) ) , 14 9:E= 
S599:H=9:V=9:PUTSPRITE6 ,(X,144),15,9 

129 PUTSPRITE2.(X,299) ,.6,7:PUTSPRITE3,(X 
-6,299) ,6.6 

139 PUTSPRITE4,(X,299).6,8:PUTSPRITE5 , (X 
+3,299),6.5:GOSUB569 

149 LOCATE19,12:PRINT"MAIN ENGINE START! 


159 RESTORE699:FORI=9TO13:READB:SOUNDI,B 


・ NEXT 

169 IFSTICK(9) く <>5THEN166 

179 LOCATE19,12:PRINTSPC( 1 8 ) : : INTERVALON 
・P=9 

189 I=STICK(9):IFI く <>9THEN:E=E- 1 -V\15:IFE 
く =9THENE=9: 』 =9 

199 SOUND6 , 3:SOUND7 ,28:SOUND8 , 16:IFI く <>9T 
HENSOUND8 , 1 9 : SOUND7 , 7 : SOUND6 , 39 

299 H=H+M( 1 ):V=V+N( 1I ) :X=X+H: IFX く 720RX >2 1 
60RV く 9THEN476 ' 

219 VPOKEZ+8 , (N( 1 ) =1 ) x33+299:VPOKEZ+ 1 2。( 
M( 1 ) =1 )x65+299 

229 VPOKEZ+ 1 6 , (N( 1 ) =-1 ) x95+299:VPOKEZ+29 
s(M(T)=-1 )x65+299 

239 VPOKEZ+25 ,X:VPOKEZ+9」X+8:VPOKEZ+13。X 
-6:VPOKEZ+ 1 7 。X+8:VPOKEZ+21 。X+3 

249 LOCATE1 ,29:PRINTENG( V,3) : :LOCATE1 。18 
:PRINTFNG(D,5): 

259 LOCATE2 ,16:PRINTFNG(E,4) j :LOCATE1 。5: 
PRINTFNG(S,5): 

269 LOCATE1.2:PRINTENG(T, 5 ) ) :LOCATE3, 13: 
PRINTFNG(L,3): 

279 IFV<290RRND( 1 ) く . 8THEN319 

289 FORB=9TOR: IFY(B) く <>299THENNEXT : GOTO31 
衣 

299 Y(B)=9:H(B)=FNR(5)-2:X(B)=FNR( 161 )+7 
2:F=Z+4%※(B+7 ) 

399 VPOKEF+2 。 (FNR( 3 )+1 ) x4:VPOKEF+ 3 ,FNR( 1 
4 )+2 

319 FORB=9TOR: IFY(B)=299THEN379 

329 X(B)=X(B)+H(B):Y(B)=Y(B)+V\5:F=Z+4※( 
B+7 ) : VPOKEF , Y(B) : VPOKEF+ 1 。X(B) 

339 IFY(B) >199ANDY( B ) く <299THENS=S+VPEEK(F 
+3)+VPEEK(F+2 ) 


349 IFX(B)< く 216ANDX( B ) >72ANDY(B) く 191THEN3 
69 

359 Y(B)=299:VPOKEZ+ (B+7 ) x4 299 

369 IFY(B) >129ANDY(B) く 168ANDX(B) >X-24AND 
X(B) く < く X+24THEN479 

379 NEXT 

389 S=S+V\29:TIFS>TTHENT=S 

399 IFD>5999THEN420 

499 し L=199-P\5: IFL く 1THENLOCATE3.13:PRINT" 
999 "1:GOTO479 

419 GOTO189 

429 INTERVALOFF:LOCATE1.18:PRINT "95999": 
・R=R+1: BEEP:S=S+Lx10 

439 PLAY"V15CEG" :D=9:FORI=9TO4:FORJ=9TO5 
99:NEXT:LOCATE9,22:PRINTSPC( 8): 

449 FORJ=9TO599:NEXT:LOCATE9 ,22:PRINT"RO 
UND "jiEFNG(R,2)::NEXT :GOSUB459:GOTO199 
459 FORB=9TOR:Y(B)=299:H(B)=9:X(B)=9:PUT 
SPRITEB+7 , (9,299) ,9.9:NEXT : RETURN 

469 D=D+V\5:P=P+ 1 : RETURN 

479 INTERVALOFF : SOUND6 , 31 : SOUND7 , 39: SOUN 
D8,16:SOUND9, 16 :SOUND1 2 , 1 29 

489 SOUND13.9:PUTSPRITE6 ,(X-H,144),6,4:F 
ORB=9TO3999:NEXT : GOSUB459 

499 0=0-1:IFO く >9THEN199ELSEBEEP : LOCATE12 
s12:PRINT "GAME OVERIII"i 

599 PLAY"V15T255o6EEF#GG . R64GG. DD . o5BB .G 
GG":GOSUB560 

S19 LOCATE12,19:PRINT "REPLAY?2(Y/N) ": 

oS29 A=INKEY$:IFA="Y"ORA="y "THEN549ELSEIF 
A="N"ORA="n "THEN539ELSE520 

o39 BEEP:SCREEN9 : COLOR2 , 9 , 9:END 

S549 BEEP:LOCATE12.12:PRINTSPC( 12) : :LOCAT 
E12.19:PRINTSPC( 12) ij:GOTO89 

S59 PLAY"V15T255o6DDo5BGG. BB . o6DD . GGGG . " 
・RETURN 

S69 IFPPLAY(1)THEN569ELSERETURN 

S79 DATA 9.9.9,-1 ,。-1 ,-1 。-1.9。-1,1.9,1,1。 
1 。1。9。1 。-1 

S89 DATA 999397949597979F1F3F3F7E967E939 
7 ,9989C94949C9C9A9B9B8B8BC89BC89C9 

S99 DATA 971F39776FDDDBFFFFFFFF7F7F3F1F9 
7,E9F8FCFEFEFFFFFFFFFFFFFEFEFCF8E9 

699 DATA 93979B1D1C372F6B5B773F1F6FF37C3 
E,89E9F9FCFE3EC9FCF8F8F9F9E9C99999 

619 DATA 994929191B3F1F293F2F2F3F1F999F 1 
F,99929498D8FCF894FCFCFCFCF899F9F8 

629 DATA 299999199F199D1F737E95158796964 
9 ,2999C2CCFE98FCFCBED9F9F8BC1C2491 

639 DATA 9999999999999999999999999999999 
9 ,999869BA69989999999869BA69989999 

649 DATA 9919965D961999999919965D9619999 
り , 99999999999999999999999999999999 

659 DATA 7CDEDEBA541938199999999999999969 
り , 99999999999999999999999999999999 

669 DATA 999999999999999919995419BA386C5 
4 ,.99999999999999999999999999999999,9,1 
679 DATA HI-SCORE, 1 , 4.SCORE , 2 ,12.TIME, 1 , 
15,ENERGY , 6 ,18,Km, 4,29,Km/S ,9,22,ROUND 
689 DATA 1.2.6,.1.5.6.3,13.3.2。16.5,1,.18, 
S,1.29.3.6,22。2 

699 DATA 35,9.34.9.215。7、3,28.16.9,.9.139 
so。14 


2 クタ 


キャ リー 


つ 面 目 の 詳し い 
こと は 秘密 
な に が 楽し いこ と を し た い /」 
と いう 気持 ち わ を 《 す で る よう な メ 
ロディ ー が 流れ て 、 タ イト ル 画 面 
が お と どり だ す 。 
音楽 が 鳴り な わっ て か ら 、 な に 
か キー を 押す と 、 ゲ ー ム スタ ー ト 。 

これ か ら 、 ス クロ ー ル の アド で 
ンチ ヤー 7 ド ペ ン レン チャー ゲーム 
じゃ な い ぞ ) が は じ ま る の だ 。 

すでに 出 て 〈 る 1 面 は 、 空 中 の 
あちこち に ある 板 を 頼り に 左右 に 
動き な が ら 降 り て いく 〈。 操作 キー 
は カー ソル キー の 左右 だ け だ 。 

キミ は 、 こ の 板 の 上 に 乗っ た と 
きだ け 左 右 に 移動 で きる の だ 。 空 
中 で は 、 だ た だ ひだ すら 洛 ち て いく 
こと し か て き な い ぞ 。 

この 面 の 目的 は 、 板 の 上 に ある 
エネ ルギー を 10 個 取る こと 。 ガ イ 
ョ 必 に あだると ゲー ム オ ー バ パー に だ 
な っ ちゃ う 。 

あん まり 板 の 上 で じっと し すぎ 
て いる と 、 画 面 の 上 まで 押し も ど 
る され て 、 ペ っ ち ゃ ん こ 。 こ れ も ゲ 
ー ム オー バー。 さら に 、 不 連 に ゃ 
ずっ と 下 ま で 板 に る わら な いま ま 
竹 ち て し まう と 、 や っ ぱり ゲー ム 
オー パー だ よ 。 


@ 不 思 議 に ワク フワ クノ 、 ス クロ ー ル の 冒険 


CARRY 


FOR ん MS 炎 (8k) 


| 
し 


4 | 9 『 

! 有 Bi 18 

や っ と マシ ン 語 を 沈 え 。 コ 0 ま 放 

た こる 愛 機 の VC-1001 ププ 0 え ョ m 

7 れ 、PFEMx を を | 

買っ て マシ ン 語 で ゲー 始 で Vi 

4 人 は し の め ^ バ lm 

ョ て いま す 。Z-80 た ソン Ci 

gm は 16 ビ ピット レ ジ 1 

W スタ が 便利 だ け W 

escas So - れ ど 、 6502 の ほ う 5 
OO 邊 が 好き Se 私 は 。 | | 
B W 

1 7 


2 面 に 入る と 、 
空中 で 左右 に 動 
ける よう に な る 。 
ここ で は ほ は 育 いす 
メタ ル を 20 個 取 
れ ば 面 ク リア が だ 。 
画面 の 端 や 限 石 に あたる と 、 ゲ ー 
ム オ ー バ ー。 


ソフ ゾク 。 な 
ん だ か こわ い 。 
中 で ま が れ な い 
な ん て 、 不 安 


PR 


こ は 秘 密 に し て お 


ョ ダブ 6 け だ ひ 

まあ 、 つ っ 4 
SR いう っ 
に 地面 ま て お よ ド い 
り れ ば いい わ 1 ー 区 
1 が より 


この スグ ロー ル 
ゲー ム 、 な か が だ な か 
むず か し くっ て 、 か な り 熟 練 し な 
いと 3 面 ま で は 行け な いと 思う な 。 

担当 の クー な ん か 、 プ ログ ラム 
を いじ くっ て 3 面目 を 出し て みた 
も の の 、 結 局 、 ふ つう の 状態 で は 
行け ず に 「 絶 対 、 3 面 は 秘密 だ !」 
と 主張 し て い だ ん だ も ん ね 。 


は 、 は や い | 沙 ち 
る の が は や いよ !! へ 


変 数 リス ト 3 に VPEE に 用 10 一 30 障害 物 、 エ ネル ギー 表示 : 290 音 由 し サブ ルー チン 
X Yo 自 機 の 座標 ・ コ 面 40 一 60 自 機 移動 ・ 300-320 グ 面 初期 設定 

sssgs ステ ィ ッ ン 関 数 用 ・ GFF…… 底 か ら の 高 さ カウ ント 用 70 一 90 音 出し 、 面 リア し た か  : 330 一 350 コ 面 初期 設定 

| 軸 .J の …… キャ ヤラ ンク 作成 用 wwwes 穴 の XX 座標 ・ 100 一 160 面 ・ 360 一 430 初期 設定 
XMS.Mb…… 音楽 デー マ ・ 2 穴 の 幅 ・ 100 障害 物 、「 メ イル 表示 ・ 440 一 470 ゲー ム オ ー バ ー 娘 理 
文 1 面 ・ 丁 $$( )…… 敵 の キャ ラフ タマ ・ 110 一 160 自 機 移 動 、 面 クリ アガ ・ 480 一 500 キャ ラク 作成 
REbsro: エネ ルギー を 取 つ だ 数 : DS( )…… 渦 窟 の 壁 の キャ ラフ マ : 170 一 260 コ 面 ・ 510 一 760 将 種 デー タ 

メ 面 : 本 -…… 敵 を 表示 する み の フ ラグ 170 一 210 障害 物 、 洞 窟 表 示 ・ 770 一 1000 オー プ ニ ン ブタ マイ トル 
E…… 自 機 が 自然 に 動 ご 万 向 : 日 …… 穴 の 位置 を 決め る の に 使用 220 一 240 自 機 移動 

N……T エ メタ ル を 取 つ だ 数 : 画 プ ロブ ラム の 説明 : 250~260 面 フ リア ガ 

志 so 音 出 レ し カウ ンマ 140 一 90 1 面 ・ 270 一 280 1 面 初期 設定 
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6 の 


si と 
の y37 ぁ 
の の 
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GOSUB279 

29 I=RND( 1)x25:IFRND( 1 ) >.6THENLOCATET+1 。 
222PRUNT "チリ 

39 LOCATEI ,23:PRINT "くく << く "9:T=RND( 1 )x199:IF 
1 く <54THENLOCATEI\2,.22:PRINT "あぁ " 

49 =STICK(9):1IFVPEEK(6176+X+Yx32 ) =152TH 
ENX=X+( 1=3)※(X く <28 ) -(T=7)x(X>2) :Y=Y-1 

S9 Y=Y+]1 :IFVPEEK(6176+X+Yx32)=152THENY=Y 
- 1 

69 IFVPEEK(6176+X+Yx32)=1450RY >230RY く TH 
EN449ELSEPUTSPRITE9 ,(Xx8 ,Yx8) ,3,9 

79 IFVPEEK(6176+X+Yx32)=177THENPLAY "DF" : 
LOCATEX-2.Y+1:PRINT" "EN=N+ 1 : VPOKE6336+N 
X32。177:IFN=19THEN3909 

89 IFPLAY(9)=9THENRESTORE739: GOSUB290 

99 GOTO29 

199 I=RND( 1 )x27:LOCATE1I ,23:PRINT " ヲ " : エ =RN 
D(1)x19:IFI<7THENLOCATETIx3.8,.22:PRINT" ク " 
119 I=STICK(9) :IFI=30RI =7THENE=( T=7 ) - ( 1 = 
3 ) 

129 X=X+E: IFX く 30RX >28THENY=Y- 1 : GOTO449 
139 J=VPEEK(6144+X+Yx32):IFJ=166THENY=Y- 
1 : GOTO449 

149 IFJ=184THENPLAY "FA" :LOCATEX- 2 。Y:PRIN 
T" "EN=N+ 1 : IFN=29THEN339ELSEVPOKE6499+32 
INT(N/2) ,184:P=9 

159 P=P+1:IFP=3THENRESTORE759: GOSUB299 
169 PUTSPRITE9, (XX8,Yx8) ,3:GOTO196 

179 LOCATE9 , 23 : PR I NT " タタ タタ タタ タタ タタ タタ タタ タタ タタ タ 
タタ タタ タタ タタ タ " : IFG>29THEN220 

189 I=INT(RND( 1 )x3)-1:IFL>290RL く 1THENI = ( 
L>29 ) - (上 L く 1 ) 

199 IFH=-1ANDI く 1THENL=L- 1 

299 IFH>-1ANDI =1THENL= し + 1 

219 !I$=SPACE$(5) :MID$S(T$,RND( 1 ) x5+ 1 ) =T$( 
T) :LOCATEL , 22:PRINTD も (1 エ +2 ) iT も 1D も (1+5 ) : 日 = 
I 

229 IT=STICK(9):X=X+(T=7)-(T=3):IFNOTPLAY 
(9)THENRESTORE769 : GOSUB299 

239 IFVPEEK(6144+X+Yx32) く >32THENY=Y- 1 :GO 
TO449 

249 IFVPEEK(6176+X+Yx32)=195THEN459ELSEP 
UTSPRITE9 , (XX8,Yx8) ,3 

259 IFF=GTHENPLAY "FE" :G=G+ 1 : VPOKE6 1 1 2+Gx 
32,.32:IFG=21THENLOCATEL+(H>9 ) ,22:PRINT " タ 
"3 STRING も (6,195) j" タ " 

269 T=-(T=9):F=F+ .95:GOTO179 

279 X=13:Y=1:DIMD も (6 ) : CLS : RESTORE719:FOR 
1=9TO5: READJ$: VPOKE6144+Ix32.VAL("&H"+J$ 
) : NEXT 

289 VPOKE6688.94:N=9:LOCATE109 ,22:PRINT "< 
くく "iRETURN 

299 READZ:FORI=1TOZ: READJ,K: SOUNDJ,K : NEX 
T:RETURN 

399 PUTSPRITE9 ,(9,298):X=14:Y=6: ビ = 1 :N=9 : 
P=2 

319 M$="L8E.GL12EGEV15C2" :PLAYM$: FORI =1T 
059:PRINT:NEXT : CLS 

329 RESTORE729:FORI=9TO6 : READJ$ : VPOKE6 1 4 
4+TIX32.VAL("&H"+J$) :NEXT : VPOKE6729 ,94:GO 
TO199 

339 PUTSPRITE9 ,(9.298):X=14:Y=9:D も (1 )=" ト 
"iD も (2)=" チ "ED も (3)=" ナ "ED も (4)=" リ ヌ ":D も (5)=" 
"SD も (6)=" こ " 

349 PLAYM や も S:FORI=1TO59:PRINT : NEXT :CLS : し = 1 
2T も (1)=" イ "SER=9SG=1 

359 FORI=1TO29:VPOKE6144+Ix32.299:NEXT:V 
POKE6816,195:GOTO179 

369 SCREEN1 ,9,9:KEYOFF : COLOR1 4 , 1 , 1 : I =RND 
( -TIME ) : GOSUB489 

379 FORI=9TO4:FORJ=9TO3 : VPOKE1728+ TIx64+J 
ぅ 9:NEXT:FORJ=4TO7:VPOKE1728+ ITx64+J,255:N 
EXT : NEXT 

389 RESTORE689:FORI=9TO15:READI$:VPOKE1 4 
89+I,VAL("&H"+ IT$) :NEXT 

399 CLS:GOSUB779:PUTSPRITE9 ,(175,。135) 。3 


19 DEFINTA-Z:DEFSNGF ,G: CLEAR29 : GOSUB369 : 


499 PLAY"T299" ,"T299" ,"T299":FORI=1TO3:P 
LAY"S9M499905L12R4GGGL4V15EG" , "S3M499904 
L12R4GGGL8GGCC" 。 "V1502L2GC" 

419 NEXT:PLAY"EL12GEGV1506C2" , "V15L4CEC2 
っ VI15E2A403C4" 

429 FORI=9TO04:J=INT(RND( 1 ) x256 ) : VPOKE82 1 
9+1,J:NEXT 

439 1$=INKEY$: IFI$=" "ORPLAY(9)THEN429ELS 
ERETURN 

449 PUTSPRITE9 , (9,298) :LOCATEX- 2 , Y+ 1 : PRI 
NT" ミ ":RESTORE749 :GOSUB299 : GOT0466 

459 SOUND7,56:PLAY"XM$:C2" "05XM$ も iC2" "0 
4XM$ iC2" 

469 LOCATE7,11:PRINT" GAME OVER "::LOCAT 
E7,13:PRINT "REPLAY?2(Y/N)":FORI=1T0999:NE 
XT:SOUND7 , 56 

479 J$=INKEY$: IFJ$="Y"ORJ$= "y"THENRUNELS 
EIFJ$="N"ORJ$= "n "THENENDELSE479 

489 J$=""EFORT=9TO7 :READI$:J$=J$+CHR も (VA 
L("&H"+I$) ) :NEXT :SPRITE$( 9 ) =J$ 

499 FORI=1TO16:READJ:FORK=9TO7:READI$:VP 
OKEJX8+K,VAL("&H"+I$) :NEXT : NEXT 

S99 RESTORE799:FORI=9TO8 : READJ$: VPOKE821 
り + TI,VAL( "8&H"+J$ ) : NEXT : RETURN 

DATA 18.24.42.5A,24.5A,5A,DB 

DATA 145,.7C,82.AA,AA,82,54,.54,7C 
DATA 152.7E,99.E7,3C,E7,5A,99,99 
DATA 166,39,7C,A6,7A,FE,9A,7C,.28 
DATA 168,.3C,99,E7,BD,99,5A,18,18 
DATA 177,.99,99.99,3C,5A,24,.7E,24 
DATA 184,99,18.99.5A,5A,99,18,099 
DATA 192.C3,78.9F,E1 .3C,87,.F9@,1E 
DATA 193.C2.79.9E,E2.3C,86,F2,1E 
DATA 194,.C3,78.4F,E1,.7C,87,F9,5E 
DATA 195,FF,55,FEF,AA,3C,87,F9,1E 
DATA 299,99,99,99,1p,18,99,099,99 
DATA 196,C3,7A,9C,E8, 38 ,B9,C9 , 89 
DATA 197,.89,89,49,E9,39,8C,F2,1F 
DATA 198,C3,78,2F,61,.3C,97,96.,91 
DATA 199.91,.92.93,9D,14,33.59,DE 
DATA 298.92.54.25,DA,3C, 6A, 95,24 
DATA 99,94.96,FF,FF,96,94,99 

DATA 99,29.69,FF,FF,69,29,99 

DATA /1.21 。A1 61 51 ,41 ,31 Al ,91 

DATA 45,4E,45,52,47,59 

DATA 54,29,4D,45,.54,41 ,4C 

DATA 6,9,29,1,159,7,234.8,19,12,19,1 
DATA 6,6,21,7,247,.8,27,11,199,12,69, 
13.9 

759 DATA 
>19.13,14 
769 DATA 7,.1.9.7.56,12.4.8.16,13,8,9,19, 
11.99 

779 PRINTTAB(6) "リリ " 
789 PRINTTAB(5)" た た 
799 PRINTTAB(5) "ね ね 。 ね ね ね れ ね " 

899 PRINTTAB(5)" み みみ みみ かみ みみ ぁみ " 

819 PRINT" 了 ウッ 9 99 の の の の か の 


7。9。199,1,19,7,299.8.19,11,1.12 


た た ” 


PRINT" く <<〈 く く ぁ の 間 M 0 償 の 
PRINT" くく < を を た た た を た" 
PRINT" あ る <〈 く < くく あぁ ね 。 ね 
PRINT" ア あぁ << く < 
PRINT <《< く 
PRINT" ぁ 
PRINT" ヲ ヲ ラ と 
PRINT" ク の 
PRINT" 。 ク ヲ " 

PRINT " ク ヲ ク ク 
PRINT" ヲ レ 衝 
PRINT" ヲ ラ ク ク ae 
PRINT" ググ ビ 。 1 コ | 

PR INT "タタ タタ ト イィ ニタ タタ タタ ルー 

PR INT "タタ タ ト ィ イ ヌ タ タタ タタ タナ " 

PR INT "タタ チ ィ メタ クタ タタ タタ タチ . 旧 9" 
989 PRINT "タタ ト ツタ タタ タタ タタ チ ANY" 
999 PRINT "タタ ナ イヌ タタ タタ タタ タタ チ KEY 
1999 PRINT "タタ タテ テテ タタ タタ タタ タタ タチ " : : RETURN 


ク KEY_ FUNCTION ク " 


LEFT RIGHT" 
929 
939 
949 
959 
969 
979 


La 
ly 


に ae 


ae ブフ 
ON いん 
2 Te 部 


sy っ を つい ペ 5 
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OOOOOOOOOOAO の 
OO 


小判 を 取り あつ て 


クジ いる 間 が ら で す 


最初 、 こ れ は 完全 に あの 『 倉 庫 番 」 
だ と 思っ だ 。 し か し 、 こ れ は ば ほれ っ き と 
し だ "うそ こ ぱ ばん な が の だ つろ た 。 
名 前 を な が ん て いう の か 知ら な いけ れ 
ど 、 ニ ニコ ニュ コッ と 笑っ て いる キャ ラク 
タ が キミ の 動か す 小 判 と り 妖 翌 。 カ ー 
ソル キー で 、 こ いつ を 操作 し て 、 青 い 
プ ブロック を 押し の け て 、 小 判 を 取っ て 
いく ゲー ム が だ 。 

赤い ブロ ッ ク は 、 絶 対 に 動 
か な い ブ ロッ ク 。 青い ブロ ッ 
ク も 、 押 し きっ て し まう と も 
う 動か せな く 《 く な る 。 こ の へ ん 
は 『 倉 庫 番 」。 と 同じ だ ね 。 
て 。、 い っ だ いな に が お も し 
ろ い の か と いう と 、 今 いっ た 
よう に 青い ブロ ッ ク は 押す こ 
と し か で き な い 。 だ か ら 、 変 
に 動か し て し まう と 、 も う 取 
りか え し が つか な て く な っ て し 
まう の だ 。 

この ゲー ム は 、 画 面 に 出 て 


きた 小判 を 全部 取り きる まで 、 な る べく 


少な い 回 数 で すむ よう に 競争 する こと 
も で きる し 、 単 に 解け た 解け な いで 友 
だ ちと は っ た だり の か まし あい を 楽し む 
こと た も て きる! 

キャ ラク タ の 動き も ちょ っ と ムズ < 


@⑧ バ ロディ つぼ いけ ご ど オリジ ナル バ パズル / 
ドミ ニー 1 
つ ぞ そこ ご ば ん 


FOR ルル MS 炎 (8。) 


OO 


OOOOOOOOOOOO の の 
et 


て 、 い っ だ ん キー を 押す と そこ に 障害 
物 が な いか ぎり ずっ と 進ん で いっ て し 
まう の だ 。 だ か 
ら 、 ブ レー キ も 
必要 で て 、 プ レー 
キ は スペ ー ス キ 
ー に 設定 され て 
いる 。 
面 は 全部 で 4 
画 て 。、 ま あ 、2 
面 、 3 面 は 解け 


4 こつ や れ ば 正解 。 
プリ ア し て 、 い ざ 、 
に チャ ヤレ ンジ 


所 まで 
ご 面目 の バズ ル 


ー ン 9 ざさ は は ン ン パ 
りり OO は (yt 。9 の 


る こと だ ろう と 思う けど 、200 回 も 動か 
きる な いと 小判 が 取れ な い 4 面 が キミ に 
て きる が な 。 

むち ゃ くち ゃ や っ て 、 も うど うし よ 
う も な いと き 。 1 キー を 押せ ば 、 そ の 
面 の は じ め か ら や り 直 し で きる よ 。 


ン パ ぐ 商 fi 次 共 や は 人 


プア マナ ア 


ウナ ウ 


ちよ つと だ け 慎 
重 な 思 考 の 必要 な 
紀 面 es 汚 守 交流 
取 つ て い ぐ "Y 


こん な ふう に こなつ だ ら 、 も うお し ま 
い 。 ご うつ あがい て も 、 小 判 は 取れ な い 
よう に こなつ て いる 


ト NN NN 8 8 MM WW W 8 上 上 上 B WM WM 8 見 】 


! 朋 鈴 林 英明 
i 青木 、 朋 田 、 森 田 、 山 本 、 


i 寺井 先生 一 


WI 
lm ぼく の 名 は 鈴木 甘い 
! 明 。 足立 区 立 第 十 、 し 
1 中学 の すぐ 3 年 生 。 \ 科 
最近 、 マ シン 話 を ちい \ 名 
W よっ と お ぼ え た の で 
すす が 、 あ の YUKI さ ん の 
m お 顔 を 一 度 拝見 し た い 
今日 この ご ろ で す 。 
きこ ここ ご ここ さこ ここ ざと ここ“ 
1 面目 は 、 ど うし よう も な い は ほど か 
ん た ん だ けど 、4 面目 は 200 回 くら い 動 
か さる さ な いと 解け な いそ うだ 。 4 面目 を 


クリ アデ する と ほめ だ た だ えて て く 衝 る ぞ 。 


画 変 数 リス ト : 弄 プ ロブ ラム の 説明 : 200-320 自分 と 動 ひ せる プロ ッ フ の 動 : で ぐれ る ん だ 。 だ と えば 、 1 面 な ら 379 生 
XY ヤ …… 自 分 の 座標 ・ 20-- 40 初期 設定 き か ら 430 行 で つく つて いる ん だ けど ga は 動 
M…… 自 分 の 残り 数 : 60 一 70 面 を 選ぶ : 340-350 コバ ン を 取る 992 N 拉 の 2 
U…… 自 分 の 動い な 数 ・ 90 自分 の 表示 : 370 一 660 各 面 の アー タ PS 9 思い. 及 O0I 還 の 8 
し …… 自 分 が 進ん で いく 方 向 :・ 100 各種 数 値 の 表示 : 680 一 720 全面 リア : あと は 自分 の 最初 の 信 軒 を メーY に し 
A…… 自 分 の 進ん で い ご 方 向 に ある も の : 110 スベ ー ス が 押さ れ だ か : 730 一 820 オー プ ニ ン デモ し で の 人 の 委 も RODV4040BAKIW 

を し ら べ る : 120-130 自分 が 勝手 に 動い て し まう  : 840 一 850 ゲー ム オ ー バ ー : だ 。 だ だ し 、 面 フリ ア の 際 に 、 呈 び だ す 
KO…… 面 ご と の コバ ン の 数 140 1 が 押さ れ だ ら は じ め か ガ ら  : 860 一 920 キヤ ランタ 定義 : 世 の N ポ の 先 の 問題 が ある の で 、 宮林 低 人 
ME…… 面 数 : 150 回 数 の 値 が 1000 に な つた ら ゲ : 930 一 940 キャ ヤラ フタ デー ツ : 成す る 最初 の 行 は 変え な いで ね 。 な あお 、 
S……STICK 関 数 用 : ー ム オー バー ・ 画 チェ ッ フ ボイン ト : 面 デ ー タ は 全部 小文字 で す 。 て プー) 
V…… キ ー ボ ー ド ガ ジ ヨ イス ティ ッ ン か : 160 メイ ン ル ー チ ン 頭 へ : リス ト を 見 れ ば わか る と 思う けど 、 ご : 還 参 考 プ ログラム 

の フラ ブ : 180 一 190 何 ガ キー を 押し た か : の ゲー ム で は 簡単 に オリ ジ ナ ル の 面 が つ : 『 規 塵 番 :( シ ン キ ンプ ラビ ピッ ト ) 


ーーーーー---ー--ー-ー…ーーーーーーー…ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー ここ て ここ ーー て て 
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本 る る 3 


2 SCREENT,0 SCOLDR 1521 grpTH 32:DEF 


INTA-Z:CLEAR39:KEYOFF : KEY6 "WIDTH29"+CHR 

$(13):R=RND( -TIME ) : GOSUB879 

39 GOSUB739:M=2:ME=1:U=9:DEF FNP( X。Y) =VP 

EEK(6144+X+Yx32 ) 

49 IF PLAY(9)=9 THEN 69 ELSE 49 

59 '※※※※ MEN SETEI XXxx 

69 L=9:CLS:IF ME=1 THEN 379 ELSE IF ME=2 
THEN 449 ELSE IF ME=3 THEN 489 

79 IF ME=4 THEN 559 ELSE IF ME=5 THEN 68 

り 

80 '※※※※ MEIN LIST ※※%※※ 

99 GOSUB189:PUT SPRITE 9,(Xx8,Yx8) ,2 

199 LOCATE3,21:PRINT"PAS:"iMi" MEN: "iME 
ASMUMUS の 

119 IF STRIG(V) THEN U=U+ 1 : し =9 

129 IF 上 し =1 THEN GOSUB 299 ELSE IF し L=2 TH 
EN GOSUB 239 

139 IF L=3 THEN GOSUB 269 ELSE IF L=4 TH 
EN GOSUB 299 

149 IF INKEY$=" 1" THEN M=M-1:PLAY"V1201L 
64BAGFEDC":IF M=-1 THEN 849 ELSE GOTO 49 
159 IF U>1999 THEN 849 

169 GOTO 99 

179 '※※※※ UGOK 1 ※※※※ 

189 S=STICK(V):ON S GOTO 299,320,239 ,329 
>269 、329 ,290 

199 RETURN 

299 し L=1:A=FNP(X,Y-1):IF A=129 THEN U=U+ 1 
・Y=Y-1:RETURN ELSE IF A=112 THEN Y=Y-1:G 
OTO 349 

219 IF FNP(X.Y-1)=194 AND FNP(X,Y-2)=129 
THEN 229 ELSE RETURN 

229 Y=Y-1:U=U+1:LOCATE X,Y:PRINT"x":LOCA 
TEX,Y-1:PRINT"h" :RETURN 

239 L=2:A=FNP(X+1 ,Y):IF A=129 THEN U=U+1 
・X=X+1 :RETURN ELSE IF A=112 THEN X=X+1:G 
0OTO 349 

249 IF FNP(X+1 ,Y)=194 AND FNP(X+2,Y)=129 
THEN 259 ELSE RETURN 

259 X=X+1:U=U+1:LOCATE XY:PRINT"x":LOCA 
TEX+ 1 。Y:PRINT"h" :RETURN 

269 L=3:A=FNP(X。Y+1):ITF A=129 THEN U=U+1 
・Y=Y+1:RETURN ELSE IF A=112 THEN Y=Y+1:G 
OTO 349 

279 IF FNP(X,。Y+1)=194 AND FNP(X,Y+2 ) =1 2 
THEN 289 ELSE RETURN 

289 Y=Y+1:U=U+1:LOCATE X,Y:PRINT"x":LOCA 
TEX。Y+1:PRINT"h":RETURN 

299 し =4:A=FNP(X-1.Y):IF A=129 THEN U=U+ 1 
・X=X-1:RETURN ELSE IF A=112 THEN X=X-1:G 
0OTO 349 

399 IF FNP(X-1,.Y)=194 AND FNP( X-2。,Y ) =1 2 
THEN 319 ELSE RETURN 

319 X=X-1:U=U+1:LOCATE X,Y:PRINT"x" :LOCA 
すこ 1 YSPRINT "" 

329 RETURN 

339 '※%※※※ KOBAN TORU XXx※ 

349 U=U+1:PUTSPRITE9 ,(Xx8.Yx8) ,19:LOCATE 
人 ん 。Y:PRINT "XX":PLAY"V12L6406E" 
359 KO=KO-1:IF KO=9 THEN ME=ME+ 1 :PLAY "05 
L19CFECDEGAFCRARARARO6A" : RETURN49 ELSE R 
ETURN 

30 'X※※※※※ え MEN ※※※※※ 

379 PRINTSPC(72) "aaaaaaaaaaaaaaa"SPC( 17) 
"aaXXXahhhaaaaxa 

389 PRINTSPC(8) "aaaaaahahaaaa a"SPC(17)" 
axhxxxhahaaa aa" 

399 PRINTSPC(8) "aaaaxaaahaaxaaa"SPC( 17)" 
aaxXXxXahhaxxXaaaa 

499 PRINTSPC(8) "aaahpaxaxhhhhha "SPC( 17)" 
ahhhhhxaxaaahaa" 

419 PRINTSPC(8) "aaahaaxaxaahaaa"SPC(17)" 
ahahahaaxahahaa" 

429 PRINTSPC(8) "ahahahxxahaaaha "SPC( 17)" 
aaaaaaaaaaaaaaa" 

439 X=9:Y=5:KO=1 :GOTO 99 

449 PRINTSPC(71) "aaaaaa"SPC(25)" axhxxaa 
aaa aaaa" 

459 PRINTSPC(5) "aaaaaxaaaxaaaaxpaaaaaa"S 
PC(19) "apxxxhXpPxhxxxhxxaxhxxa" 


PC(13) "aaaaaaaaa aaaaaaaaa" 
479 X=8:Y=3:KO0=4:GOTO 9 
489 PRINTSPC( 72 ) "aaaa 

) "axpaaaa aaaaaxxaa" 

499 PRINTSPC(6) "aaahhxxpaaaxxhxahxa"SPC 
(13) "axhxaxhxaaapPxxhxxxa" 

S599 PRINTSPC( 6 ) "aaaxaxxaaaaaaaXxxxaa"SPC( 
14) "aaxahaaxxpPaaxXxXa3a" 

S19 PRINTSPC( 7 ) "axxxxXxxhxxpaxxxa"SPC( 16 ) 
"aahhahxaaaaaxaaa 

S29 PRINTSPC( 8 ) "aaxxxaaaxxaxha"SPC(19)"a 
aXXXXXXXhxxa " 

S539 PRINTSPC( 19) "aaaaaaaaaaaa" 

S49 X=21:Y=3:KO=5:GOTO 99 

S59 PRINTSPC(9) "aaaaaaaaaaaaaaaa"SPC( 1 3 ) 
" aaa4aXXXXXXa4aXXXPXa" 

569 PRINTSPC( 6 ) " axhxxxhxphxxaxxaaha "SPC( 
13) "aahaxXaXXXaXhxXaxXa" 

S579 PRINTSPC(6 ) "axxaahaaaaaxahxaaxa"SPC( 
13) "axxaapa axaXxXhxaxa" 

S589 PRINTSPC( 6 ) "axxphxaaaaaxaxXaaxa"SPC( 
13) "aaXaaXXXXXhxaXXxaxxa" 

S99 PRINTSPC(6) "aaxaaaaaxxhxaxaaxaaaa"SP 
C(11) "axxxaaaaaaaxXaxxhXxxxa" 

699 PRINTSPC( 6 ) "axaxxXxXxxxxhxaxaaxaxxa "SP 
C(11) "axaaaaaaaaaxhxaaxaaxa" 

619 PRINTSPC( 6 ) "ahxxhxapPxxxxaaaxxaxxa "SP 
C(11) "axxaxhxxaaaaaaxhxaxaa" 

629 PRINTSPC( 6 ) "aaxaaaaaaxhpxaaxaaxa"SPC 
(13) "axaaaaaaXXxxhxxaaha" 

639 PRINTSPC( 7 ) "axaaaaaaxaaaaaaaxXa"SPC( 
13) "aPaXXXaaXxXhXpaxhxxa" 

649 PRINTSPC( 6 ) "aahaxaxaaxaaxXxxXXaaa "SPC 
(12) "apPxxXXhxXPXaaxXaaaaa" 

659 PRINTSPC( 6 ) "aaaaaaaaaaaaaaa" 

669 X=7:Y=2:KO=19:GOTO 9 

67 '※※※※※※ メ ※ デ ※※※※※※※※※※※※※※ デ ※ 

689 PUTSPRITE9 , (9,299) :LOCATE7 ,19:PRINT" 
すっ すこ ^ い まみ は て ん さい た *1" 

699 LOCATE7, 12:PRINT "あと は し いふ いん て つく っ て あぁ そ ほ ~* 
bo 

799 LOCATE12,14:PRINT "きろ < は "jiU 

719 PLAY"04L3V12BGADR8EABGL6406CDEFGABO7 
C" "05L3V19BGADR8EABGL6407C06BAGFEDC" 
729 IF PLAY(9)=9 THEN CLS:GOTO 39 ELSE 7 
2 


aaaa"SPC(16 


739 LOCATE 9.3:PRINT" ha ahah hah 

a app a"SPC(15)"h a a h ahah h" 

749 PRINT" haha hahah 4 4a a "SP 
C(19)"h ah h hp h" 

759 PRINT" る h a 3a a "SP 
C(19)"h a h ha 呈 nh" 

769 PRINT" a h h h a aha aha 
3 SPC(3) "ah ah aha hnhahhah 


779 LOCATE 19,15:PRINT "< く USOKOBAN> 

789 LOCATE 5,18:PRINT "HIT SPACEKEY AND P 
LAY" 

799 LOCATE 9,21:PRINT"BY H.SUZUKI" 

899 FORV=9TO1:IF STRIG(V) THEN 829 

819 NEXT:GOTO 899 

920 CLSSLOCATE12.12:PRINT "か ん は っ て ね ! "BLA 
Y"04L3V12BGADR8EABGL6406CDEFGABO7C" , "05L 
3V19BGADR8EABGL6407C06BAGFEDC" : RETURN 
839 '※XXX GAME OVER ※※※※ 

849 CLS:PUTSPRITE9 , (9 ,299):LOCATE8 , 1 1 : PR 
I NT " あきらめ な いや て か で ん は "ろう " 

859 LOCATE12,13:PRINT "GAME OVER" :FORI =9T 
07999:NEXT:CLS:GOTO 39 

869 "XX※※※ KYARKUTER XX※X※ 

879 FORI=1TO8:READ A$:B$=B$+CHR$( VAL( "&H 
リ + す AA も ) ) : NEXT 

889 SPRITE$( 9 ) =B$ 

899 FORJ=1TO4:READ N:READ A$:U=9 

999 FORI=1TO16STEP2:VPOKE BASE(7)+Nx8+U, 
VAL("&H"+MID も (AA$, 1 ,2) ) :U=U+ 1 : NEXT 

919 NEXT 

929 FORI=12TO14:READA$:VPOKE BASE( 6 )+I,V 
AL("&H"+A$) :NEXT : RETURN 

939 DATA 3C, 7E,DB,DB,FF , DB , 42.3C,。 97,FFE 
7C38181C3E7FF 

949 DATA 194,FFE7C38181C3E7FF , 112,3C427E 
427E427E3C, 129 ,9999999999999999,69,47,A1 
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@ バ ンプ 星人 に 囚われ た みゆ き 姫 を 救え ./ 


グッ ツジ 


っ コミ 
1 オ 4 ら 


ムレ ベル が あ が つ だ の も つか の ま 。 ま た 、 強 敵 に で あつ て し まつ だ 。 や つた だ / 攻撃 成功 / 


な ん と か 、 こ の ピン チ を きり ぬけ ね ば 。 


mw 動き は 少な いけ ど 
楽し い R.P. G 


蘭 む か し 、 宇 宙 の か た すみ に 、 平 和 
を 愛す る 人 々 が 住む クボ ポリ テ 星 が あり 
まし だ た 。 と ころ が ある 日 、 邪 悪 な パン 
プ 是 人 が 侵入 し 、 国 土 の 娘 で ある みゆ 
き 姫 (!?) を さら っ て 、 降 伏 を 要求 し 
て きだ た の で す 。 ク ポリ テ 量 最強 の 戦士 
で ある あな た だ は 、 姫 を 救出 すべ で く 、 パ 
ンプ 星 へ と 向かっ だ た の で す が ……・ 

ゲー ム は 、 あ な た だ が パン プ 是 へ と 降 
り 立 っ だ と ころ か ら は じ ま り ます 。 画 
面 左上 の 数 値 は 上 か ら 、 体 力 (これ が 
0 に な る と ゲー ム オ ーー) 、 経験 度 


( 英 を 倒す と 増え 、 こ の 値 に より 体力 
が UP する )、 現 在 位置 、 持 っ て いる 楽 
の 量 、 持 っ て いる お 金 の 額 を 示し て い 
ます 。 

ッ パ ンプ の 時 は 20X20 の エリ ア に 分 か 
れ て お り 、 カ ー ソ ルキ ー イ 移動 が で き 


ます ( 隊 り 合う キー を 押す こと に より 、 


な な め 移 動 も 可能 )。 

敵 に あう と 自動 的 に 戦闘 モー ド に は 
いり ます 。 敵 の パワ ー が 表示 され る の 
て 逃げ られ な い 場 合 も あり ます 。 た だ 
5 回 力 を まじ える と 、 戦 い を 続け る か 
と うか 開い て きま す 。 こ れ を 、 和 目 分 が 
逃げ る か 、 敵 が 倒し る まで くり か え し 
ます 。 移動 し て も 敵 が いな か っ た ら 、 


薬 を 飲 り こと に より 、 楽 1 に 対し 体力 


1 の 割合 で 、 体 力 を 回 復 さ せる こと が 
人 き ます 
あちこち に 移動 し て いる と 、 ど こ か 
で 聞い た こと の ある よう な 名 前 の 人 達 
が 、 武 器 を 売っ て くれ ます が 、 お 金 が 
あれ ば 買う こと が で て きま す 。 て は が ん 
ば っ て みゆ き 姫 を 救い 出し て くだ さい 。 
と ころ で 、 こ の ゲー ム を 打ち こん で 
RUN さ せる と 、 ち ょ っ と 不思議 な こ 
と に 出会う と 思い ます 。 
「 カ ー ソ ルキ ー を 押し て いる の に 、 ち 
っ と も キャ ラク ター が 動か な い /」 
プロ グラ ム の 入力 ミス が か が 、 は だ た まだ 
リス ト 掲 載 時 の 印刷 も れ の せい か …… 
多分 どっ ち で も あり ませ ん 。 あ せっ て 
質問 の 電話 な どか け な い よー に 。 
これ は 。 も と も も 、 を うい う ア ログ 
クム が の て す 。 
ラッ クッ クシ 、 ざ ゆめ ん な きい 和 ね 。 で も 
これ は 、 ロ ー ル プレ イン グ ゲ ー ム で す 
か ら 、 右 上 の 画面 は ほぼ か ざり だ と し 
て も 、 楽 し め る の で す 。 
ちゃ ん と 、 下 の ほう に 現在 の 位置 を 
示す 座標 が 出 て いて 、 キ チン と メモ を 
取っ て いけ ば いち お なお う マッ プ の よう な 
も の も で きる わけ で ……。 
あ 、 そ うそ う 、 そ れ か ら こ この 画面 
に は 敵 が ヌ ッ と 現れ て 、 少 し は 危機 感 
を あお っ て くれ ます よ 。 
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6 タ 


が な あ 。 


ミミ 


ご けけ ロ 


変 数 リス ト 


最大 値 


・ XX( ).Y( )……: 敵 の 座標 


・ SP.CHR…… ス ブラ イト 
OP…… 薬 を 飲ん で 回 復 で きる パワ ー の ・ 


LO に ーー カラ ー 


・GLD…… 品 物 の 値段 


EX.EZ…… 経 験 度 ・ 還 プロ ブラ ハム の 説明 

MP…… 現 在 の パワー ・ 10 一 40 タイ トル 

EP…… 敵 の パワ ー ・ 5080 初期 設定 

A.B…… 自 分 の 座標 ・90 一 160 画面 作成 Part1 

CK…… 瑞 を 人 國 し て 得る お 金 の 額 ・170 一 250 物 動 

ME…… 敵 を だ お し て こす り を 得る か ど ・ 260300 画面 作成 Part つ 
うか 決め る ・ 310 一 320 _ POWER が ある か 

IOA.SH…… 装 備 ・ 330 一 560 戦闘 モー ド 


】 
SATOH" 


LOCATE9,19:PRINT"[L[[ ATTACK & KEEP ]] 
・LOCATE13,14:PRINT"PHIT ANY KEY!" 
LOCATE13,23:PRINT"(C) 


1984 BY MASAKTI 


49 IFINKEY$=" "THEN49ELSE59 


59 SCREEN 2,2,9:COLOR 7)1 1:CLS:0OPEN"GRP 
・"AS##1:PLAY"PV1205T255F7R8G8A9B3" 

69 FORI=9TO6:A$="":FORL=1T0O32:READBS$ : A$ も = 
A$+CHR$S(VAL("&H"+B$) ) :SPRITE$S( 1 ) =A$ : NEXT 
に 

7 DIM X(98) ,Y(98) :A=9:B=9:MP=19g9:EX=9:M 
D=199:0P=199:MO=9:EZ=9:CA=g 

89 FORI=gTO098:X(I)=FIX(RND(-TIME ) *21 ) :Y( 
I)=FIX(RND(-TIME ) *21 ) : NEXT 
9 の 9 カト メン も セッ テイ タダ トド ヨ ォ ー PART 1 


199 LINE(99 の )-(255 191)j5jB:LINE(159 1 ) - 
(159,111)55:LINE(9,112)-(255112) 5 


Y こう つと うみ ゆき 姫 を 発見 し た 。 そ ば 
で 、 姫 を 見 震 つ て いる や つ は すご く 強 
そう だ ぞ 。 パ ワー が ガ が ちょ っ と だ りな い 


ゃ こら 


・570 一 590 薬 処 理 や は り 何 バー セン ト ガ の 確率 で 、 逃 げ 
・600 一 670 敵 を 図 し た ・ られ る か を 決め られ る よう に し だ ほう が 
・ 680 一 820 Dai、 フ ー、 だ けち ゃ ん ・ い い の で は な いか な 。 

・ 830 一 880 救出 成功 / ・ 470 行 の |FーO 〇 P/2 の 部 分 を IF RND 
・890 一 920 ゲー ム オ ー バ ー ・(1)<0.2 に 変え れ ば 〇 に だ 。 


・930 一 1000 デー マ 
・ 較 ちよ つこ ひと こと 


・ い な いと 逃げ られ な いん だ 。 ご これ で は 、 


・ 一 バー に な つて し まう ね 。 


119 FORI=@T02:PSET(2+1,2),9:PRINT#1,"[ A 


TTACK & KEEP ]" 


129 PSET(2+111),9:PRINT#1 "POMER :":PSE 
T(2+1529)j9:PRINT#1 “EXPERIENCE : ど 

139 PSET(2+1,29) 9 の :PRINT 持 1 "PLACE :":PSE 
T(2+1,38)j9:PRINT#1 ぅ "MEDICINE : ど 

149 PSET(2+1547) ぅ の:PRINT 失 1 "MONEY :":NEX 


まだ 、 ご これ に 経験 度 を 1 枚 ひ ませ れ ば 、 
・ さら に お も し ろ い か も ね 。 

リス ト を 見 れ ば わか る と 思う けど 、 戦 ・ 
・ 賠 モ ー ド に 入 つ た と き 逃 げ よ うと 思っ つて ・ 
・ も 、 相 手 に ある 程度 の ダメ ー ジ を 号 え て 
・ と が で きる し 、 知 数 を 使っ て ゲー ム を や 
・ 次 々 に 瑞 が あら われ る と 、 す ご ゲー ム オ ・ 
。 ろ いね 。( フ ー) 


みゆ めき 姫 は いつ も 同じ と ころ に いる 。 
230 行 で 決め て いる の で 、 ご この A=20、B 
ーー20 の 値 を 変え れ ば その 場所 を 変え る こ 


る だ びに 変え られ る よう に し て も お も し 


NUDEBRIUNMWMMI Os 


CLEAR:SCREEN 9:COLOR 151,1:KEY OFF:C 


T:GOSUB269 
159 FORI=152T025g@STEP8:FORL=1TO0111STEP8: 

PSET(TyL) っ 9 の:sPRINT ま 1 っ) NEXT し 1 

169 PUTSPRITE4,(195545)15 

179@ 人 0 ドク で ヨ オキ デニー デー 

189 M=STICK(@) :C=(M=6)+(M=7)+(M=8)-(W=2 ) 
-(M=3)-(M=4):D=(M=8)+(M=1)+(M=2)-(W=4)-( 
M=5 ) -(M=6) 

199 PSET(2,113)j9:PRINT#1 "[1]-DRINK" :IF 
INKEY$="1“"THEN589 

299 IFA+C く < OR B+D<9 OR A+C>29 OR B+D>29 
THENC=9:D=9 
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219 IFC=10RD=10RC=-10RD=-1THEN229ELSE189 


229 BEEP:A=A+C:B=B+D 

239 GOSUB269:GOSUB319:TFA=29ANDB=29THEN3 
49 

249 FORG=9T098:IFX(G)=AANDY(G)=BTHEN379 
259 NEXT:GOTO 189 

グ 6d “ニー ニー ニニ が "メッ も セッ テイ タダ トヨ ォ ー PART 2 =ー= ェ = 
279 LINE(69,11)-(192 19),1BF:PSET(6911 


) 9 の :PRINT##1 MP:LINE(199g,29)-(126,28) ぅ 1B 
F:PSET(199,29) 9 の:PRINT 拉 1 EX 

289 LINE(84,38)-(12446),1BF:PSET(8438 
) ぁ 9:PRINT 欄 1 MD 

299 LINE(69,47)-(199,55) ,1,BF:PSET(6947 
) の:PRINT##1 MO 

399 LINE(69,29) -(12537 ) ,1,BF :PSET(69 29 
)j9:PRINT#1,Ai"T "EiB:LTINE(1,113)-(254159 
) ぅ 1BF:RETURN 

う 19 “ニー ニー ニー POWER カ ^ ナ イ ヨ ォ ー 
329 IFMP= く ggTHEN の 999ELSERETURN 
うう 9 "= ニー ニー FTGHT MODE ダ * ヨ オー 
349 PUTSPRITE3,(21161) ,15:EP=19g99:BO= 1 
359 PSET(2,113) ,9:PRINT#1 "キッ キサ マ ナニ モノ タ ト 


369 PSET(2,122) ,9:PRINT]1 "ミュ キ ヒ メ 敗 リタ サ ネ ェ 

も \ !":FORT = の TO02999:NEXT:GOTO0419 

379 BEEP:EP=FIX(RND(-TIME ) x59+(OP-59 ) ) +E 

X 

389 IFG=gTHENCH$S="Da1":CITS=" カ タナ " :SP=2:GL 

D=299:CL=7:GOT0699 

399 IFG=1THENCH$=" クー" :CT$=" シ ー ル トド " :SP= の 9:G 

LD=399:CL=5:GOT0699 

499 IFG=2THENCH$=" タケ チャ ン " 

1:GLD=499:CL=11:GOT0699 

419 CHR=6:COL=8:IFFIX(RND(-TIME ) *2 ) =9THE 

NCHR=5:COL=7 

429 GOSUB269: PSET(2,113) ,9:PRINT#1,"ENEM 

Y POMER :":EP 

439 PSET(2,122) ,9:PRINT#1,"[1]-ATTACK [2 

]-GET AMAY" 

449 PUTSPRITECHR,(19561 ) ,COL 

459 IK$=INKEY$: IFIK$="1"THEN599 

469 IFIK$="2"THEN479ELSE459 

479 IFBO=10REP>0P/2THENPSET(2,131),9:PRI 

NT#1 "ニケ ドラ ルレ マセ ン !":GOT0599 

489 C=1:IFA=29THENC=- 1 

49 PSET(2,131) ,9:PRINT#1,"MEAK !":MP=MP 

-19:PUTSPRITECHR,(195 61 ) ,9:GOT0229 

599 FORL=1T05:BEEP:GOSUB269:SH=9:TF1I=1TH 

ENSH=SH+2 

519 IFT=2THENSH=SH+3 

529 IFFIX(RND(1)*2)=1THEN569 

539 IFFIX(RND( 1) *2) =9THENPSET(2,113) ,9:P 

RINT##1," テ キラ ヨコ ケタ !":FORI=9T0259:NEXTI,L:GO 

T0429 

549 IFFIX(EP/19)<SHTHENSH=9 

559 MP=FIX(MP-EP/19)+SH:PSET(2,113) ,9:PR 

INT##1 "テキ カラ タ 2 トメ ー ジ ドラ ウケ 7 タ 2!" :GOSUB319:FOR1I= 

@T0259:NEXTI,L:GOT0429 

56g9 EP=FIX(EP-MP/19)-3-CA:PSET(2,113) 9: 

PRINT#1 "テキ ニ タタ トメ ー ジ ドラ アタ ェ エタ !"・FOURT=9T0259: 

NEXTI:TIFEP= く < の THEN619ELSENEXTL : GODT0429 

579 ーーーー 2 スリ タタ トヨ ォ ー 

589 BEEP:IFMP>=0POROP-MP>MDTHENPSET(2,12 

2),9:・PRINT#1, "NOT DRINK !":FORT=9T01999: 

NEXT: GOT0229 

599 PSET(2,122) ,9:PRINT#1,"POWMER UP!":FO 

RI=@T0599:NEXT:MD=MD-(OP-MP ) : MP=OP :GOT02 

29 

6 '-ーーー- テキ ラ シト メタ ヨ ォ ー 

619 IFBO=1THEN849 

629 PLAY"V1205T255F7R8G8A9B3" : GOSUB269 :P 

SET(2,113) ,9:PRINT#1," テ キラ シト メタ !" :EX=EX+ 1 
・EZ=EZ+1:X(G)=51 

639 PUTSPRITECHR,(195,61) ,9:CK=FIX(RND(- 

TIME ) x19+19) :ME=FIX(RND(-TIME ) *3) 

649 IFME=gTHENPSET(2,131),9:PRINT#1,"199 
ノ クス リラ ミツ ケタ 1!" ・MD=MD や 199 


:CT$=" ヘルメット":SP= 


6 の 6. 


659 BEEP:PSET(2,122) :9:PRINT1 CK:" ノ オカ ネ 
う ミツ クタ 1!"・MO=MO+CK 

66 め 9 IFEZ=19THENBEEP:MP=MP+199:EZ= 外 -0P=0P 
+199:PSET(2,149)j9:PRINT 拉 1 "ケイ ケン カ ^ フェ タ ノ テ 
^_ POWER UP!" 

679 FORI=9TOU1999:NEXT:GOT0239 
68 婦 “ニニ ーー Dal1 クー 分 ケチ ャ ン タ 2 トヨ ォ ー 
699 PUTSPRITE5,(195,61) 15:PSET(2113) 9 
PRTNT#1 どり タ 2 シノ ナリ "5CHS も 2 の トモ ウシ マス ” 

799 PUTSPRITESP,(195,61) ,CL:FORTI=9 の TO1999 
・NEXT 

719 GOSUB269:PSET(2 113) ,9@:PRINT 手 1 "リタ シノ 
モッ テイ ル “"j CT も S:" ラ カッ テク レル ェ ー":FURT= の TO1999:NE 
XT 

729 GOSUB269:PSET(2 113)j9:PRINT##1 GLDi“ 

GOLD テ \ ス カイ マス カ ? ど " 

739 PSET(2,122)j9:PRINT#1 5"[ 上 1]-YES [2]-N 


< 回 


74g 
Mg 
75 
ェ ッ ! 
4 
769 0=1:IFA=29THENO=- 1 

779 PUTSPRITE5,(195,61),g9:PUTSPRITESP, (1 
95 ぁ 61)j9g:C=0:GOT0229 

789 PUTSPRITESP,(195,45)jCL:PSET(2131 ) 
9・PRINT 失 1 "マイ トド アリ イィ イー" ・MO=MO-GLD 

7 の 99 IFG=gTHENCA=5 

899 IFG=1THENI=1I+1 

819 IFG=2THEN1I=I+1 

82g PUTSPRITE5,(195,61) 9:X(G)=51:GOTO22 
g 
Ak- 
849 GOSUB269:COLOR 8:PSET(2,113)j9:PRINT 
#15"FINISH!":PUTSPRITECHR ぅ (19561) 9 

859 PSET(299,68) 9:PRINT#1 "の 間 "・PLAY"T259 
GABCEF BAG2" 

869 PSET(2,122) ,@9:PRINT 持 1 "ヤッ ト アナ タル ミュ キ ヒ 
メラ タス ケ マ シ タ !":GO0=MP+MO+MD+EX 

879 PSET(2,131) ,9:PRINT#1,"YOUR SCORE 1IS 
7:GO:PSET(2,149) 9 の:PRINT#1 "START [S] KE 
Y!"・TK も =INKEY$ 

889 IFIK$S="STORIK$="s"THEN19ELSE87 の 

89g * ニ ニニ -- GAME OVER 2^ ヨ ォ ー サト マ ァ ミロ ーー ニーー 
9 の 9 COLOR 15:CLS:SCREEN 9:LOCATE12,12:PR 
INT"GAME IS OVER!":GO=MP+EX+MD+MO 

919 PLAY"V12T255BAGFEDCBAGFEDC":LOCATE19 
14:PRINT"YOUR SCORE IS"iGO:LOCATE1116: 
PRINT"START [S] KEY!" 


IK$=INKEY$S: IFIK$S="17ANDMO=>299THEN78 


IFIK$=“"2"THENPSET(2 131),9:PRINT 拉 15 ど 
カッ テク し ナイ ノ ?2 ケチ !":FOURT=9TO599:NEXTELSE7 


929 TK$=INKEYS:TFIK$="S"ORIKS="s"THEN19E 
LSE929 
939 "ーー-- DATA 2\ ヨ ォ ー ーー 


949 DATA99,99, の の 9, の 9 の 9 99)99,99,99,9 の 99 
> の 9,99,99, の 9, の 9 の > の 9 の 99 の 9 の 999 の >99 ぅ 1C> 
1Cj1Cj1C,1C)98)99 の 999 の 9 

959 DATA94,92, 3 う ,92 の 2 の) の 人 の > の 9 の 99 の 9 の 
> の 9 の 9 の の 9 9 の 29)49,C9>49,49,9 の 9 の 99 
り 99,99,9 り 9 の 9, の 9 の 9 の 99 の の 

969 DATA99,9 の 9 の, の 9, の の 9, の 9 の 99)91 93,93,94 
> 9 の 9) の の 9) の 9 の, の 99 の > の 9) の 9 9C)1C38 7 の EC の > 
89,99 ぅ 99) の 9 の 9 の, の 9 の) の 9 の 

979 DATA9g,99, の 193,93,91,93,9F,9B,99>99 
>B 2)92)92)96)99,99 89,C9>C9 89,CgF9 
D9,99,99D9:49>4954969 

989 DATA99,99,93,93,91591,97,9E,9B,9A15 
> 9A) 93 の 92)929659 の 99 Cg9>Cg 99>A9>49>B ゆ > 
7 D9)D9,59D9:49)4969 

999 DATA99,93,93,93,9159F>1F>2F67 ぅ 27 ぅ 13 
>5,9E,9C,9C)1C)9 の 9 の)C9)C9 C9589F9F8F4> 
E6,E4,C8:A9>79,39,3938 

1999 DATA@113,33,23616Fj3F)1F 9gF>97 ぅ 9 
7,9D,9E)9C)1C)3E,89,C8CC5C4865F6FC5F8 
ぅ >Fg EE の 9)B9 の 79 39,387C 


THE よつば らい 屋 


FOR SXX) 


ss プー ム 本 能 を ぐす ぐる 単純 ゲー ム 
朝日 新聞 福川 あ に お と 呼び れ も 


いる お に いさ ん が いる そう カゲ トー の る 6p る 


ー ム は その お に いさ ん が ケ コン で 作 
ーー み ィ JA 
移植 ( ?) 関 写 の だ そ 5. ガ 

な ん と な く 7 陣 に お さっ て 、 お 
酒 の 好き そう 


下 の 写真 だ け 上 還る と 、 ま る Ne ポケ 4 
コン 風 の ゲー ム " き ] 


見 た と ころ 、 果 て し な く 単 純 そ う ) 


に 見 える けれ ど 、 や り は じ め る と 、 そ 


ん な こと (ば どう で も よく な っ て し まう 。 


どこ か 、 ゲ ー ム 本 有 能 を く 《 すぐ っ て くぐる 
へ ん な ゲー ム だ 。 
ボケ コン 風 に 面 が 横長 な の も か えっ 


て 効果 的 な の だ 。 

左 の 英和 ら 出 て くる ドッ ト が 、 キ ミ 
よっ ぱら い 屋 さん ? 上 下 
の 線 は 、 断 岩 絶 壁 で 、 こ の よっ ぱら い 
屋 さ ん は 一 歩 玩 ら が えば 命取り に な る 
が 特 っ 、 さち いて いる の だ 。 

3 和 秀 る あい だ に 下 へ 下 へ 
) と 術 る ドッ ト を スペ ー ス 、 


3 の あの 
て し まう の で 、 適 度 に 押し て サッ と ひ 


く 。 こ れ が この ゲー ム の 焦点 な の だ 。 
右端 の 的 に あ た れ ば 面 ク リア 
また 左 か ら は じ ま る の だ けれ ど 、 前 に 
通っ つた あと は その まま で 、 面 クリ ア の 
た びに わけ が わか ら な く な る 仕掛 け 。 


159 
139 GOTO 79 


E RUN 


SCREEN 2:OPEN"grp: "AS 持 1 
29 CLS:X=9:Y=81:SC= 
39 LINE(259 ,83) -(250,86) 、15 
49 LINE(9,89)-(255,89) 、3 

59 LINE(9,91 )-(255,91 ) , 3 

69 PSET(199,159) ,4:PRINT#1 , 
79 PSET(X,Y),8:FOR T=9 TO 59 

69 NEXT T:X=X+1:Y=Y+1:SC=SC+ 1 

99 IF STRIG(9) THEN Y=Y-2 

199 IF Y=89 OR Y=91 THEN 149 

119 IF X=255 THEN 149 

129 1F X=259 AND Y=>83 AND Y<=83+4 THEN 


149 PSET(39,59 ) , 4:PRINT#] , 
"soSCs POINT "ETF STICK(9) く >7 THEN 149 ELS 


159 BEEP:SC=SC+59:X=9:Y=81:GOTO 79 


"よっ は 9 5U" 


"GAME OVER 


遇 本 て 上 へ キ グル まう 。 た だ 、 


で 90 


1 画面 ブロ グラ ム 8 


人 


ら 嘩 Ti の 9 の 0T@ 


「 昌和 1 
や っ ほ ー、 は じ め て の り ま し た 。 う 。 、『 
『 導 剛 和 11 歳 で す 。 まさ か の る 話 最 

と は ……。 こ れ は 夢 な の か 。 ボ だ 近 - 
イデ テッ 、 わ け は ョ 』 
一 夢 じ ゃ あ ど 夢 ! 
- ナ の - 
[ か! 

か 

1 
上 も! 
痛 
い 『 
- 8 
3 
ョ “ 8 


リプ レイ は カー ソル の 左向き キー。 
や め る と き は ICTRL |+[STOP|。 こ の と 
き 、 右 端 に た どり つく まえ に や め る と 、 
ブラス 50 の 生命 保険 が 入る 。 な ん て ね 、 
ホント は パク グ だ っ た り し て 。 


は HT9H / 放 94S 回 
較 ③() 下 皿 回 Q 
に いい 団 つ 人 Ui 人 


「 剛 ご 0 見 Um ロ エ ゴ 」 ら 白 


や 2、 さ っ ほら いや 


( こ ご これだけ) 

較 プ ログ ラム の 説明 

10-- 20 初期 設定 

30- 60 画面 作成 

70 一 90 よつば らい が 動 ご 

100 一 130 衝突 判定 

140 グー ムー パー 

150 面 ジ リア 負 理 

参 考 
wY イ コン ペー シッ クマ ガ ジ ン 
84 年 月 号 
ンジ ン ン ラグ ー ム ) 


67 


生日 2 和 人 ユニ 


ト ご =】 
ト ゴ ー) 
トー -】 


@ 改 卿 星 脱出 を 夢見 て 放 六 する ジョ ウイ の R.P.G. 


「 こ の まま じゃ お れ の 一 生 は うだ つの 
あがら な いま まお わっ ちまう 」。 ジョ 
ウイ は 彼 の 故郷 で ある 惑星 クラ ウン を 
あと に する 決 b を し た の だ が ……"。 ~ こ 
れ は 、 の ち に 「 ス ター プレ イカ ー」 と 
異名 を と っ た ジョ ウイ の 第 1 の 物語 ァ イ ト モー ド に な り 、 画 面 左下 に を の 
ある 。 モン スタ ー の 名 前 、 体 力 、 


ー ム は セー ブ し だ た 時点 
か ら は じ め る こと が で 
きま す (セー ブ の 仕方 
に つい て は 後 で 述べ ま 
す )。 

ゲー ム は 、 ジ ョ ウイ 
が 惑星 クラ ウン の 、 と 
ある 十字 路 に 立っ て い 
る と ころ か ら は じ ま り 
ます 。 画 面 左 の 数 値 は 
上 か ら 、 体 力 (これ が 
0 に な る と ゲー ムネ ポー 
2 ポー) 、 マ ジッ ググ パウ 
ー (魔法 を 使う と 減り 
これ が 少な く な る と 使 
えな く 〈 く な る )、 所 持 金 、 
持っ て いる 燃料 、 レベ 


6 を ぢ 


@ MSX の ロー ルプ レ 
イン グ ゲ ー ム な の だ 
RUN す る と 、 デー タダ を ロー ド す る か 
と うか が だ すね て きま す 。 こ の と き 

ー タ を セー ブ し た テー ブ が あれ ば 、Y” 
まだ は  y を 押す こと に よっ て ゲ 


ー リー 


『E STORY Or 


、 画 司 和 を 上 に で る 、3X 元 ゲラ フィ ツー 


、 フ は 、 す ず すべ て 正面 が 北 に な っ て いま す 。 
つま り 、 あ な だ が どの 方 向 か ら 移動 し 
て きだ と し て も 、33 次 元 プ ラフ ィ ッ ク 


の 見 え 方 は つね に 同じ な の で す 。 カー 
ソル キー の 鈴 、 団 、 国 、G@ は それ ぞ れ 、 


北 南東 西 へ の 移動 キー で あっ て ヾ 上下 
左右 ? で は な い の で 注 2 
以上 の こと は 、 ゲー トブ ロッ フク に つ 

いて も 同じ で す ( 國 -1 参照 )。 現 在 ぬ ま 
- だ は の ゲー トブ プロ ッ フ に いる と する 。 


と 、 門 内 に 入る に は @⑧ で は 東 に ( ほ )、 


で は 南 に G) 行 か な く て は な ら な い 
8 EE ふつ う の 3 次 宛 送 路 と 


ル (使え る 魔法 に 関係 する ) で す 。 カ 
ー ソ ルキ ー で 移動 し ます が 、 
道 の ある 方 向 に し か 進む こと が で きま 
せん 。 森 で は すべ て の 方 向 に 進め ます 。 

途中 で 数 々 の モン スタ ー に 出 会 
す 。 モ ンス ター に 出会う と 自動 的 に フ 


示さ る れ ます 。 ジ ョ ウイ の 体力 の 1 ノ /20 
が モン スタ ー の 体力 か ら 引 か れ モ ンス 
ター の 体力 が 0 以下 に な る と モン スタ 
ー は 死に ます 。 また だ た 、 ジ ョ ウイ の 攻撃 
が 失敗 し た 場合 は 、 モ ンス ター の 攻撃 
力 の 1 ノ 10 が ジョ ウイ の 体力 か ら 引 か 
和 れれ ます 。 こ うし て 、 モ ンス ター を 倒す 


し て ぐだ さい 。 0 


4 お つと 、 そ の ドラ ゴン と は 必殺 技 な ぐし 
て 戦え な い 。 


4^ ム わり と 手ごわい ヘル ・ フ ラ ワ ー。 


み ー ぼ ー、 ミ ン ミ ン 、 ト ー マ ス 、 よ し か 

つ さ ん 、 お れ は つい に の っ た ぞ で 。 こ れ で 

わが 青春 に 悔い は な し 。P. S. ス トー リ 

ー2 も よろ し く 。( 編 集 部 注 ・ 実 は この ゲ 

ー ム 、 あ が る と スト ー リ ー2 へ の メッ セ 

ー ジ が 出る ん だ けど 、 い ま 開 発 中 だ そう 

で す ) 
| 明月 上 上 上 上 8 上 BB M 8 MI 2 
と モン スタ ー に 応じ て 、 所 持 金 、 レ ベ 
ル が あがり ます 。 

ジョ ウイ は 、 魔法 を 使う こと が で き 
ます が 、 レ ベル 、 マ ジッ ク パ ワー が 十 
分 で あり 、 さ る さらに 使用 す る 魔法 を 魔法 
使い に 教え て も ら わ な けれ ば 使え ませ 
ん 。 魔法 は 全部 で 4 種類 あり 、 次 の よさ 
う な 効果 を 示し ます 。 
(①FROZEN:…・ 英 を 凍ら せ 、 逃 げ る こ 
と が 可能 に な る 。 
②SPARK:…・ 英 の 体力 を 弱め る 。 
③VOLT・… 英 の 攻撃 力 を 弱め る 。 
1 ーー ど て だ いて も 、 いこ めい 
の 泉 ” に 帰る こと が で きる 。 

ここ か ら あ と は 、 ゲ ー ム を や っ て み 


と IM_I WI M M B WM 8 WM 
< GO 生還 9 9 EEB DB ED Gm 5 


て 難し て 頭 が 爆発 し そう に な っ た ら 
読み まし ょ う 。 
① こ の ゲー ム は 、 完 全 に マッ ピン グ で 
きま す 。 だ だ し ある みこ と を する と 、 ツ 
ー プ ブロ ッ ク カ 外 れ ます 。 
② 故 卿 やす て て 宇宙 に 出る に は 、 や は 
り 宇宙 船 が 必要 で すね 。 
③ モ ンス ター に も や は り 有 弱点 は あり ま 
す 。 す ご く 強 い モ ンス ター も 、 あ る こ 
と を すれ ば …。 「 
(《④ ゲ ー ト チケ ッ ト は 何 種類 も ある の で 、 
ある 門 で 通れ て も 別 の 門 で 通れ る と は 
限り ませ ん 。 
⑤ 画 面 左 上 の グラ フィ ッ ク 画 面 は 、 移 
動 す る だ びに か きか えら れ ま す 。 カ ー 
ツル キー を 押し て も 、 画 面 が が きえ ら 
れ な いと き は 、 そ こ か ら 先 に は 進め な 
(ev ラ ご と た て 9。 

この ゲー ム に は 、 セ ー プ 機能 が つい 
て いて 、 い つ で も カセ ッ ト に 現在 の 状 
感 を 残し て な むく こと が で きま す 。 エ セー 
ブ し た いと 思っ だ たら スペ ー ス キー を 押 
し 、 カ セッ ト の 録音 用 意 が で きた ら 、 
メー シン キー を 軍 し て 《 く だるい 。 中 一 
ド す る 際 は 、 ゲ ー ム の 途中 で ロー ド で 
き な い の で 、 い っ だ ん ブログ ラム を 止 
め 、 あ ら だ た め て RUN き させ 、 デー タ を ロ 
ー ド する か だ ず ね られ だ ら 、 テ ー プ "を 
セッ ト し “Y” キー 押せ ば OK で す 。 


・ イタ 


れる けど ご 、 だ つた 1 回 し 会 えな 


4 ム 道 の 途中 で 田吾作 に 遭遇 。 武器 や 燃料 を 売 つ て 4 死 の 川 で 神様 ご 遺 遇 。 会え 々 ば いろ ん な も の を ご 
いる マー ケッ に ト に 入る だ め の 許 可 書 を 売 つ て これ い の は さび し い 。 
る ぞ 。 


4A ド フロ が の つか っ て る けど 、 こ れ は お いし い 宝 
の 箱 。 ま じ め に 作 く の が あほ らし い ほ どの 大 金 が 
つま つて いる ぞ 。 


画 変 数 リス ト ・ SO…… 商 品 の 金額 
SSO…… ジ ョ ウイ の 持物 ・ 画 プロ ブラ ム の 説明 
PE…… ジ ョ ウイ の レベ ル ・ 10 一 60 マイ トル 画面 作成 


・2900-2950 ゃ ボッ フス ・ う 。 

・2970 一 2990 逃げ る ゃ ・ 3155 IFINKEYS“"THEN3155 
・3010-3050 タゴ サフ ・。 これ で キー バッ ファ が ガク リア され る 。 
・30703130 秘 動 ・ よく ぐ 使 う 方 法 だ か ら 覚 えて あい て ほし い 
・ 3150 一 3220 戦闘 モー ド の 入力 ・ な 。 

・3240 一 3410 ファ イト ! ・。 まだ この プロ グラ ム で は 、 入 力 さ れ だ 
・3430 一 3550 魔法 ・ 数 字 を 1 つ 1 つ 比べ て いる ん だ けど 、 だ 
・3570 一 3610 プラ スタ ヤー ・ と えば 3160 行 を こん な 風 に し だら も つと 
・3630 モン スタ ー デ ー タ 表示  : スマ ー ト な ん じゃ な いか な 。 せ つか ぐ 便 
・3650-3660 ジョ ウイ の デー 表示  ・ 利 な コマ ンド が ある ん だ か ら 、 活 用 し よ 
・36803700 ゲー ム オ ー バ ー 画 面 ・ っ 。 

・3710 一 3910 スプ ライ ト デ ー ダ ・ 3160 MS=INKEYS : IF INSTRC 
・3930-3940 成功 し だ と き の 画 面 ・ “1 2345". MS)= 0ORLENCMS 
・3960 一 3970 サウ ンド サブ ルー チン ・)=0 THEN3160 

* 3990-4020 デー タ セ ー ブ プ ブルー チン % ウー ウ 


PP…… ジ ョ ウイ の 体力 ・ 70 初期 設定 
PM…… ジ エ ウ イ の 所 持 人 金 ・ 80-120 スプ ライ ト 定 義 
MP…… ジ ョ ウイ の マジ ッ ク バ ワー : 130-150 デー タ の ロー ド 
EN…… ジ ョ ウイ の 持つ 燃料 の 重 ・ 340 一 320 画面 作成 
MM…… ジ ヨウ イ の 使え る 魔法 ・340 一 550 死 の 谷 、 山 、 川 、 湖 
CL…… ジ ョ ウイ が 手 に 入れ だ カー トリ ・ 570 一 650 森 の 中 

ツジ の 枚数 ・ 660 一 770 門番 
ZZ(。 )…… ジ ョ ウイ の 位置 ・790 一 1000 商人 
F、B、R、L … ジ ョ ウイ の 進め る 方向 ・1020-1170 よい 魔法 使い 
GOCO…… ゲ ー ト チケ ッ ト ・ 1190-1220 いこ い の 泉 
CRO…… 宝 征 . 神 様 な ど 和 名 キャ ヤラ フタ ガ : 1240-1350 道路 

出 だ ひ どう か が ・1370 一 1470 宇宙 般 
E…… 今 闘 つ て いる モン スタ ー ・1480? 1520 ゲー ム 終 了 時 の デー マセ ー 
CPO…… モ ンス ター の 体力 ブ 
LFO…… モ ンス ター の 攻 撃 カ ・ 1540-1660 宝 の 箱 
MOO…… モ ンス ター の 持つ て いる お 金 : 1680-28860 モン スマ ー た ち 


F お の 


7 の 


… 商 人 の 売 つ て いる 品物 名 


・(2700 一 2740 神さま ) 


19 CLEAR:SCREEN 9:COLOR 2.1.1:CLS:OPEN"G 
RP: "AS#1:DEFINT A-Z:KEY OFF 

20 LEOCATE 3、5:PRINI ーーーーーーー む ーーー ニ テー ツバ ゞ 9ー 
ーーーーーー "*LOCATE 3,6:PRINT "| TNE SITOR 
Y OF STAR BREAKER LOWY 1":LOCATE 3,7:PRI 


NT " 0 


39 LOCATE 15,19:PRINT"[ STORY 1 ]":LOCAT 
E 19,13:PRINT"< THE PLANET CLOWN >":LOCA 

TE 9,17:PRINT"1984 written By Akira" 

49 LOCATE 11,19:PRINT"PUSH [RETURN] KEY 
1 9 

59 ON STRIG GOSUB 3999:STRIG(9) ON 

6 M$=INKEY$:IF M$=CHR$(13) THEN 79 ELSE 
69 

79 CLS:SCREEN 2,2:DIM SS(3) ,CP(3) ,LF(3), 
GC(2) ,ZZ(8,8),CR(6),F$(2),S(2),MO(3) ,A$( 
4) 

89 RESTORE 3719 

99 FOR I=9 TO 6:GOSUB 129:SPRITE$(1 )=A$( 
1)+A$(2)+A$(3)+A$(4) :NEXT 1:GOSUB 12:FO 
R 1=7 TO 19:SPRITE$(1)=A$(1)+A$(2)+A$(3) 
+A$(4) :NEXT 1:GOSUB 129:FOR !=11 TO 14:S 
PRITE$(』)=A$(1)+A$(2)+A$(3)+A$(4):NEXT 1 
:GOSUB 129:FOR 1=15 TO 18 

199 SPRITE$(I)=A$(1)+A$(2)+A$(3)+A$(4):N 

EXT 』 

119 GOSUB 129:SPRITE$(19)=A$(1)+A$(2)+A$ 
(3)+A$(4):SPRITE$(29 )=A$(1)+A$(2)+A$(3)+ 
A$(4) :GOSUB 129:SPRITE$(21)=A$(1)+A$(2)+ 

A$(3)+A$(4) :SPRITE$(22)=A$(1)+A$(2)+A$(3 
)+A$(4):FOR IT=23 TO 31:GOSUB 129:SPRITE$ 
(1)=A$(1)+A$(2)+A$(3)+A$(4):NEXT 1:GOTO 
139 

129 ERASE A$:DIM A$(4):FOR J=1 TO 4:FOR 

K=1 TO 8:READ B$:A$(J)=A$(J)+CHR$(VAL("& 

H"+B$) ) : NEXT K:NEXT J:RETURN 

139 K=9:FOR Y=9 TO 8:FOR X=9 TO 8:ZZ(X,Y 
)=K:K=K+1:NEXT X。Y:PSET(69,19) ,1:PRINT# 
1 ツテ ュー タ ま ロ - ト ~、 し ます か 92":PSET(79,129),1:PR 
INT#1、"[Y] YES [N] NO" 

149 M$=INKEY$:IF M$="N" OR M$="n" THEN L 
INE(9,9)-(256,192) ,1,BF:GOTO 179 ELSE IF 
M$ く <>"Y" AND M$<>"y" THEN 149 

159 PSET(89,159) ,1:PRINT#1 , "な た ~ ぃ いま ロート" ち 

ゅ う " :CLOSE#1 : OPEN"CAS:CLOWN" FOR INPUT AS 
1 : INPUT #1 ,X,Y,MP,PP,PM,SS(g) , SS(1) ,SS 
(2) , SS(3) ,EN,CL,MM,PE,GC(8) ,GC(1) ,GC(2) , 

CR(9) ,CR(1) ,CR(2) ,CR(3) ,CR(4) ,CR(5) ,CR(6 
) : GOSUB 4929 

169 LINE(9,9)-(256,192),1,BF:GOTO 189 
179 FOR I=9 TO 6:CR(I)=1:NEXT 1I:PP=399:X 

=1:Y=4 

186 LINE(15,15)-(115,95) ,7,B:LINE(139,15 
)-(259,65),11,B:LINE(145,75)-(245,155) ,1 

3,B 


・ 画 チェ エッ ン フ ボイン ト 


戦闘 モー ド で は 入力 まち の 際 に 、 逃 げ ・ 


・ だ いと き な ど 同じ キー を 何 回 ひだ だ こと ・ 
・ 入 力 が バッ ファ に だ まつ て し まっ て 、 ゲ ・ 
・ 一 ムレ に こい ね 。 次 の 1 行 を 加え て みよ * 


全書 きき 4 寿 午 。 まき 
ーー フィ 前 3 NN 1 
だ ら XYsNk な うこ こと の 


に だ ic た AG 


199 PSET(19,199),1:PRINT#1 "Lowy'S POWER 
":PSET(19.119),1:PRINT#1 "MAGIC POWER" :P 
SET(19,129),1:PRINT 村 1 "Lowy'S MONEY" :PSE 
T(19,139) ,1:PRINT 失 1 "SHIP FUEL":PSET(19, 
149),1:PRINT##1。"LOwy'S LEVEL" 

の 9 mm の の Ge カ ~ メ ン サク セイ 1 
219 F=9:B=9: し =9:R=9:LINE(29.29)-(119,99 ) 
ぅ 上 。BF 

229 GOSUB 3229:GOSUB 3649 

239 K=(ZZ(X。Y) MOD 9)+1:ON (ZZ(X。Y)/9)+1 
GOTO 249,259,269 ,279,289 ,299 ,399 ,319,32 
り 

249 ON K GOTO 
69,489,1369 
259 ON K GOTO 339, 339, 569 , 1239 , 1289 ,1329 
>569,489,489 

269 ON K GOTO 569,569,569 ,1399 ,659 , 1 239 , 
569,569,569 

279 ON K GOTO 569,1329 ,1399,659,789.659, 
1329,1399,569 

289 ON K GOTO 569,1239,659,1919,1189.789 
659 , 1239,569 

299 ON K GOTO 569, 1399, 1239 ,659,789,659, 
1239,1329,569 


1539 , 339,569,569,569,569,5 


-399 ON K GOTO 569,.569,569 ,1239.659,1289, 


569,569,569 

319 ON K GOTO 379,379,569,1349,1349,1239 
。569,529,529 
329 ON K GOTO 
69,529,1599 
30 や ン メグ あき - う = ララ そ em 
349 LINE(29,49)-(119,99),19,BF:FOR 1I=9 T 
0 59:X1=INT(RND( 1 )x99+29):Y1=INT(RND( 1 )※ 
59+49):PSET(X1.Y1),.13:NEXT 1 

359 X1=INT(RND( 1 )x59+39):Y1=INT(RND( 1 ) *3 
9+39):PUTSPRITE 39,(X1,Y1),15 

369 IF CR(4)=1 THEN 2429 ELSE 3969 

人 ms の op ジ ツウ プ や ヤ S 
389 LINE(29,89)-(119,89),9:LINE(29,89)-( 
21.79).9 

399 RESTORE 419 . 
499 READ X2.Y2:IF X2=9 THEN 429 ELSE LIN 
E-(X2.Y2).9:GOTO 499 

419 DATA 23,75,39,29,49.25,59,23,69,39, 7 
5.45,75,89,9,9 

429 PAINT(39.59),9:LINE(75,89)-(119.89) 。 
6:RESTORE 449 

439 READ X2.Y2:IF X2=9 JHEN 459 ELSE LIN 
E-(X2.Y2).6:GOTO 439 

449 DATA 199.69.95.28.79.25.69,39,.5S, 49, 
75.89.9,.9 

459 PAINT(89,69),.6:FOR I=9 TO 89:X1=INT( 
RND( 1 ) x99+29):Y1=INT(RND( 1 )*69+29):PSET( 
X1.Y1),1:NEXT I 

469 X1=INT(RND( 1 )x49+49):Y1=INT(RND( 1 ) x2 
9+59):PUTSPRITE 39,(X1.Y1),15 

479 IF CR(5)=1 THEN 2539 ELSE 3969 


1569,379,569,569,569,S69,5S 


499 LINE(29,99 )-(29,59 ) , 4:LINE- (99, 29 ) , 4 
・LINE- (199,29) ,4:LINE-(29,99) , 4:PAINT(39 
,69),4:LINE(25,79)-(69,45) ,15 

599 LINE(25,55)-(75,39) , 15:X1=INT(RND( 1 ) 
X39+49):Y1=INT(RND( 1 )x39+49 ) :PUTSPRITE 3 
9 。 (XX1。Y1)。15 


S19 K=INT(RND( 1 ) x3) : IF K=2 AND CR(9)=1 T 


HEN 2699 ELSE 3969 

529 "ーーーーーーーーー シ ノ ミス ~ ウ ミ ---ーーーーーーーー ニ ーー 

539 LINE(119,29)-(29,29) ,7:LINE- (29,79 ) , 

7:CIRCLE(29,29) ,99,.7,4.71.6.27,5/9:PAINT 
(39,39) ,7:FOR I=5 TO 29 STEP 5:CIRCLE( 45 
,59 ) , 1 ,5,,。.5:NEXT I 

549 X1=INT(RND( 1 )x59+49):Y1=INT(RND( 1 ) x1 

9+69) : PUTSPRITE 39,(X1,Y1),15 

559 IF CR(6)=1 THEN 2759 ELSE 3969 

569 *--ーーー ニ ニー ニーー モリ ノ ナカ ---ーーーー ニ ーー ニー ニー ニー ニーー 

579 FOR 1I=49 TO 199 STEP 29:LINE( 1 ,25)-( 
I-19,45) ,2:LINE-(I+19,45) ,2:LINE-( 1,。25) 。 

2:PAINT(I,35),2:LINE(I-5,45)-(I+5,55) 。9, 

BF 

589 LINE(I-19,59)-(I-29,79),12:LINE-(I。7 

9 ) ,12:LINE-(1-19,59) ,12:PAINT(1I-19,65) , 1 

2:LINE(I-15,79)-(I-5,89),6,BF:NEXT 1 

599 K=INT(RND( 1 )x199) :IF K<29 THEN 699 E 

LSE 618 

699 J=INT(RND( 1)x199):IF J>59 THEN 2969 

ELSE 2239 

619 IF K>99 THEN 2899 

629 IF K=39 OR K=35 THEN 1679 

639 IF K=49 OR K=45 THEN 1899 

649 IF K=59 OR K=55 THEN 1939 ELSE 3969 

659 '"-----ー ニ ーー ニーー- モン バン ーーーーーーーーーーー ニ ーーー 

669 LINE(29,29)-(119,49),15,BF:LINE(29,4 

9)-(49,89),15,BF:LINE(99,49)-(119,89),15 
,BF:LINE(49,49)-(99,89) ,14,BF:LINE(59,59 
)- (89,709) , 1 , BF 

679 FOR 1I=59 TO 89:LINE(1I,79)-(I-19,89), 
1:NEXT I:FOR 1I=79 TO 99:LINE(89,79)-(I,8 

9 ) ,1:NEXT I:FOR I=9 TO 199:X1=INT(RND( 1 ) 

%99+29) :Y1=INT(RND( 1 ) x69+29 ) :PSET(X1 ,Y1 ) 
,1:NEXT 1 

689 PUTSPRITE 6,(57,69) ,19:PSET( 159,89 ) , 
1 :PRINT#1 , "モン ハン テ ~ ス " : PSET( 159 ,99 ) : PRINT 

1 。 "キヨ カシ ョ ヲ ミセ ロ " 

699 K=ZZ(X,Y) MOD 9:IF (K=2 OR K=3) AND 

GC(9)=1 THEN F$= "キョ カシ ョ A":GOTO779 

799 IF K=4 AND GC(1)=1 THEN F$= "キヨ ョ カシ ョ B" 
: GOTO779 

719 IF (K=5 OR K=6) AND GC(2)=1 THEN F$= 

"キョ カシ ョ C":GOTO779 

729 PSET(159,119),1:PRINT#1 "ナイ ! ナイ ツ ~ 1 

":FOR I=9 TO 3999:NEXT I:PSET(150,129) ,1 
: PRINT#1 "ナカ ニハ イレ ン !":FOR I=9 TO 499:NE 

XT 

739 IF K=2 OR K=3 THEN X=1:Y=4 

749 IF K=4 THEN X=3:Y=1 

759 IF K=5 OR K=6 THEN X=7:Y=4 

769 PUTSPRITE 6,(9,9),9:GOTO 29 

779 PSET(159,119),1:PRINT#1,F$:" ラ タ * ス ":F 

OR I=9 TO 1999:NEXT 1I:PSET(159,139) 。1:PR 
INT##1 "ヨシ イッ テ イイ ソ ツ ~" :FOR I=9 TO 2999:NEXT 
I:PUTSPRITE 6,(9,9),9:GOTO 396g 

789 '--- ニ ーー ニー シヨ ウミ ン AA。B。C = ニニ ニニ == ュ ニュ ュー 

799 LINE(29,29) -(39,39) ,15:LINE( 119,29 ) - 
(199,39) ,15:LINE(29,99)-(39,89),15:LINE( 

119・99)-(199,89),15:LINE(39,39)-(199,89) 

,15,B 

899 IF ZZ(X,Y)=31 THEN F$(g)=" フ トラ スタ ー" :F$ 

( 1)= "ヨロイ" :F$(2)=" シ トラ ウシ ~ カ " :S(9)=299:S(1)= 

399:S(2)=599:K=2:GOTO 839 

819 IF ZZ(X,Y)=49 THEN F$(9)=" カ ー ト リッ シ ~A" : 

F$( 1 ) = "カート リッ シ ~ B" :F$ も (2) =" カ ー ト リッ シ ~C" : S( )=2 

99:S(1)=299:S(2)=299:K=7:GOTO 839 

829 F$(9) =" ネ ン リ ョ ヨウ" :F$( 1 ) = リネ ン リ ヨウ":F も (2) =" ネ 

ン リ ョ ヨウ": K=13 

839 PUTSPRITE 2,(59,54) ,K:PUTSPRITE 3,(5 

り , 79) ,K 

849 FOR 1I=9 TO 2:GOSUB 3229:PSET( 159。89 ) 

1:PRINT#1 ,F$( 1 ) :PSET(159, 9 ) , 1 : PRINT#1 , 

" 八 イカ カ ~ 2":PSET(159,119) ,1:PRINT#1 。"[11 

ホシ イ ! "EPSET(159,129 ) , 1 :PRINT#1 ,"[2] イラ ナイ 


GS59 M$=INKEY$: IF M$="" THEN 859 
869 IF M$ く >"1" AND M$<>"2" THEN 859 
979 IF M$="1" THEN 899 ELSE NEXT 1 


889 GOSUB 3229:PSET( 159, 89 ) , 1 : PRINT#1 , " テ 

- テ ケ ! "FOR K=9 TO 3999:NEXT K:PUTSPRITE 

2,(9.9),9:PUTSPRITE 3,(9,9),9:GOTO 3969 

899 IF PM<S(I ) THEN GOSUB 3229:PSET( 159, 

89 ) ,1:PRINT 村 1 "カネカ ~ タリ ナイ " :FOR J=9 TO 299 

9:NEXT J ELSE 919 

999 I=I-1:NEXT 1 

919 IF K=13 THEN 969 ELSE GOSUB 3229:PSE 

T(159.89) ,1:PRINT#1 "マイ ト ~ 1!" :PM=PM-S( 1 ) : 

FOR J=9 TO 2999:NEXT J:GOSUB 3649 

929 IF K=2 THEN SS(I )=1 

939 IF K=7 THEN CL=CL+ 1 

949 NEXT 1 

959 PUTSPRITE 2,(9.9),9:PUTSPRITE 3,(9,9 
) ,9:GOTO 3969 

969 GOSUB 3229:PSET( 159,89 ) , 1 :PRINT#1 ," ト 

- レ ダー ケー 7":FOR J り =1 TO 4:PSET(159,89+Jx19) , 
1:PRINT#1. "LV5Ji 91":JX199:NEXT J 

979 M$=INKEY$:IF M$="1" OR M$="2" OR M$= 
"3” OR M$="4" THEN 989 ELSE 979 

989 M=VAL(M$)x199:GOSUB 3229:IF PM<M THE 

N PSET( 159,89 ) , 1 :PRINT#1 , "カネ カ ~ タリ ナイ " :FOR 
り =9 TO 2999:NEXT J:I=I-1:NEXT 1 

999 PSET(159,89 ) , 1 :PRINT#1 "マイ ト ~ ! ":PM=P 

M-M: EN=EN+M: GOSUB 3649 

1999 IF I=2 THEN PUTSPRITE 2,(9,.9),9:PUT 

SPRITE 3,(9,9),9:GOTO 3969 ELSE NEXT 1 
1919 "ーー ニー ニニ = ヨイ てまり ウツ カイ ニー ニー ニー ニー ニニ ーーー 

1929 FOR 1I=3 TO 12 STEP 3:CIRCLE( 49 , 49 ) , 
1。7:CIRCLE(79,55) , 1 。6,,。,.5:CIRCLE( 45,79 ) 
1。2。。。22CIRCLE(99。35) 。』。13、、、.5:NEXT 1 
1939 PUTSPRITE 4,(59,38) ,15:PUTSPRITE 5, 
(59,54) ,15:PSET(159,89 ) , 1 : PRINT 柱 1 , " ナ こ カ ヨ 

ウ 77":PSET(159。199 ) , 1:PRINT#1 。"[1] ハイ "EPS 

ET(159,119),1:PRINT#1 ,"[2] イエ イエ " 

1949 M$=INKEY$:IF M$="" THEN 1949 

1959 IF M$<>"1" AND M$ く >"2" THEN 1948 
1969 GOSUB 3229:IF M$="1" THEN 1979 ELSE 
PSET( 159 , 89 ) , 1 :PRINT#1 , "ワタ シル ネル ":FOR 1= 

9 TO 3999:NEXT 1I:PUTSPRITE 4,(9,.9) ,9:PUT 

SPRITE 5,(9.9),9:GOTO 3969 

1979 PSET(159.89 ) , 1 :PRINT#1 , "ワタシ "PSET 
(159,99 ) , 1:PRINT 拉 1 , "ヨーー- イ " : PRESET(159,16 

り ):PRINT 拉 1 。 " マ ホ ウ ツ カ イ タ ~ 。 " 

1989 M=INT(PE/29):IF M=9 THEN PSET(159, 1 
19),1:PRINT#1 "モット " :PSET( 159 , 129 ) ,1:PRIN 

T 手 1 "シュ キョ ウ シロ "FOR 1I=9 TO 3999:NEXT I:P 

UTSPRITE 4,(9.9),9:PUTSPRITE 5,(9,9),9:G 

OTO 3969 

1999 IF M>5 THEN M=5 

1199 FOR J=9 TO 3999:NEXT.J:GOSUB 3229:0 

N M GOTO 1119、1129,1139,1149,1159 

1119 MM=1:M$= "FROZEN" :GOTO 1169 

1129 MM=2:M$= "SPARK" :GOTO 1169 

1139 MM=3:M$= "VOLT":GOTO 1169 

1149 MM=4:M$= "WARP" :GOTO 1169 

1159 PSET(159,89) , 1 :PRINT#1 , "ワタ シル ネル ":FO 

R J=9 TO 3999:NEXT J:PUTSPRITE 4,(9,.9),9 
・PUTSPRITE 5,(9.9),9:GOTO 3969 

1169 PSET(159,89 ) , 1 :PRINT#1 ,M$ も :PSET( 159, 

99 ) , 1:PRINT 拉 1 "トイ ウ マ ホ ウ りう" : PSET( 159 , 199 ) , 1 
・PRINT 拉 1 。" サ スー ケ ヨ ウ ": PSET (159 , 129 ) , 1 : PRINT# 
1 。” コ マッ タ トキ こ ":PSET( 156 , 139 ) , 1 : PRINT 本 1 ," ツ カ 

イナ サイ "に FOR J=9 TO 4999:NEXT J:PUTSPRITE 4 
(9,9),9:PUTSPRITE 5,(9,9),9 

1179 MP=MP+INT(RND( 1 )x199+199) :GOSUB 364 

9:GOTO 3969 

1189 "ーーーー ニ ーー イコ イ ノ イス ~ ミ ーー ニニ ニニ ニニ ニー ニー ニー 
1199 CIRCLE(55,59 ) , 25.3, ,,19/25:CIRCLE(5 
S。59 ) , 29,5。,,5/29:PAINT(55,59) ,5:LINE(39 
ぅ 59)-(39,79),3:LINE(89,59)-(89,79) ,3:FOR 
1=55 TO 79 STEP 5:CIRCLE(55, 1 ) 。25,3。3.1 

4.6.27,19/25:NEXT I 

1299 PSET( 159,89 ) , 1 :PRINT#1 , "イコ イ ノ ":PSET 
(159.99) ,1:PRINT##1 "イス ^ ミ タ ^ !":FOR J=9 T 

0 2999:NEXT J:IF PP<399 THEN PSET( 159, 1 1 
り ) , 1 :PRINT 村 1 "タイ リョク UP" : PP=399 

1219 IF MP<299 AND MM>9 THEN PSET( 159, 12 

り ) ,1:PRINT 拉 1 ," マ シャック? ワー" EPSET (159, 1385 ) , 1 
・PRINT 手 1 "ソー ウキ ョ ウ ! ":MP=29g 

1229 GOSUB 3649:FOR I=9 TO 2999:NEXT 1I:G 

OTO 3969 

1239 "ーーーーーー ニ ー ニ ーーー シン” スウ シン "日 ーー ニー ニ ーー ニ ニニ ーー ニーーー 


7 


72 


1249 LINE(29,49)-(119,49),15:LINE(29,55 ) 
-(59,55),15:LINE-(55,49),15:LINE(75 , 4 ) - 
(89.55),15:LINE-(119,.55),15:LINE(119,65) 
-(85.65),15:LINE-(95,99),15:LINE(29,65 ) - 
(45.65),15:LINE-(35,99),15 

1259 K=INT(RND(1)x199):IF K<89 THEN 1279 
1269 K=INT(RND( 1)x3+1):ON K GOTO 1679,18 
99 , 1939 

1279 IF K>5 THEN 3969 ELSE 3999 

人 章 で 「 王 選 人 7 必 丘 ) や = ョ ーー ニー の や 


1299 F=1:LINE(29,49)-(119,49),15:LINE(29 


s55)-(119.55).15:LINE(29.65)-(45.65) ,15: 
LINE-(35.99).15:LINE(119.65)-(85,.65),15: 
LINE-(95,99),15:GOTO 1259 
0 eee の PE - 細 こ ゃ キー ニテ ャ mmo の 
1319 L=1:LINE(29,49)-(119,49),15:LINE(5S 
>49)-(35.99),15:LINE(75,49)-(89.55),15:L 
INE-(119.55).15:LINE(119.65)-(85,.65) ,15: 
LINE-(95.99) ,15:GOTO 1259 
200) ipa 人 6 人 ) ” 
1339 R=1:LINE(29,49)-(119.49),15:LINE(S55S 
49)-(59.55).15:LINE-(29.55) ,15:LINE( 20 。 
65)-(45.65),15:LINE-(35.99),15:LINE(75,4 
9)-(95.99),15:GOTO 1250 
人 回 の さ ニ ァ マ ー マ ーー マー や ーー 
1359 B=1:LINE(29,49)-(119.49),15:LINE(29 
>89)-(119.89),.15:LINE(55,49)-(45.79),.15: 
LINE-(29.79),15:LINE(75,49)-(85.79),15:L 
INE-(116,79),15:GOTO 1259 
co SRIR SH マニ マー ママ マー マデ マー テマ 
1379 F=1:R=1:LINE(29.69)-(49,49),15:LINE 
-(99,49),15:LINE-(119.69),15:LINE-(29,69 
),15:PAINT(59.59) ,15 
1389 PSET(49.45),15:PRINT#1."@":PSET(60 , 
45),15:PRINT#1."O":PSET(89.45).15:PRINT# 
1 5 Mi ju 
1399 LINE(29,61)-(119.61).14:LINE-(99,79 
),14:LINE-(49,79),14:LINE-(29,.61).14:PAI 
NT(69,65),14:FOR 1=45 TO 59:LINE(1,.65)-( 
1-5,89) ,7:NEXT I:FOR I=89 TO 85:LINE(I,6 
5)-(I+5.89),7:NEXT I 
1499 FOR I=25 TO 55:LINE(42.89)-(1,85) ,4 
・LINE(88,89)-(I+59.85),4:NEXT I:LINE(62, 
79)-(68.89) ,S,BF 
1419 PSET(159.89),1:PRINT#1 "ウチ ラウ セン タダ“ リド: 
PSET(159,199) ,1:PRINT#1 "フリ マス カー? "EPSET( 1 
59,119),1:PRINT#1 ,"[1] モチ ロン ":PSET(159,12 
9)。1:PRINT#1。"[2] イヤ タダ 8 
1429 M$=INKEY$:IF M$="" THEN 1429 
1439 IF M$<>"1" AND M$ く >"2" THEN 1429 
1449 GOSUB 3229:IF M$="1" THEN 1459 ELSE 
PSET( 159 , 89 ) , 1 :PRINT#1 , "カエ リマ ショ ウ ":FOR 1= 
9 TO 2999:NEXT 1I:GOTO 3969 
1459 IF EN<2999 THEN PSET(159.89),1:PRIN 
T##1 "ネン リ ヨ ウ カ ~":J=2999-EN:PSET(159,99 ) ,1: 
PRINT 持 1 Ji "タリ ナイ ソト 1" 
1469 IF CL<3 THEN K=3-CL:PSET( 159 , 199 ) , 1 
・PRINT#1 , "カー トリ ッ シ ~ カ ~ "EPSET(159,119) ,1:PRI 
NT 失 1 , Ki "マイ タリ ナイ " 
1479 IF CL<3 OR EN く <1999 THEN PSET(159,12 
9),1:PRINT##1 "テニ イレ ロ !":FOR 1I=9 TO 5999 
:NEXT I:GOTO 3969 
1489 SCREEN 9:LOCATE 19,19:PRINT"NEXT ST 
AGE [COSM0]" :LOCATE 13,15:PRINT" テ ーー タ を セ 
ー フ ” し ます 。 "ELOCATE 3。17:PRINT "テー プ ” きま セッ ト し 
て [RETURN] ま お し て < た ヾ さい " 
1499 M$=INKEY$:IF M$ も =CHR$( 13) THEN 1599 
ELSE 1499 
1599 CLOSE#1:O0PEN"CAS:COSMO" FOR OUTPUT 
AS ##1:PRINT #1 ENiMP:PM:SS(9):SS( 1)1jSS(3 
) ji PPiMMi PE 
1519 LOCATE 19,19:PRINT"PUSH [RETURN] KE 


1529 M$=INKEY$:IF M や =CHR$(13) THEN 3929 
ELSE 1529 

見 の は 本 on の の ジ カ ク / 還 豚 =ー ニ = ニー デー ニー ニー ニニ ーー 
1549 IF CR(1)=9 THEN X=5:Y=7:GOTO 2 
1559 F=1:L=1:COLOR 4:K=13:CR(1)=9:GOTO 1 


1569 '-------- タカ ラ ノ ハコ B ------ーーーーー 
1579 IF CR(2)=9 THEN X=3:Y=1:GOTO 299 
1589 B=1:L=1:COLOR 8:K=4:CR(2)=9:GOTO 16 


1599 '--ーーー ニ ーーーー タカ ラ ノ 用 コ C -ーーーーーー ニ ーー ニーー 
1699 IF CR(3)=9 THEN X=1:Y=4:GOTO 299 
1619 B=1:R=1:COLOR 19:K=15:CR(3)=9 

162 '-ーーー ニ ーー タカ ラ ノ ハコ A。B,C = ニニ ニー ニー ニー ニー ニーー 


1639 LINE(39,59)-(89.89) ,K,B:LINE(39,59 ) 

-(59.49),K:LINE-(199,49),K:LINE-(199,79) 
5K:LINE-(89.89),K:LINE(39,.69)-(89.69) ,K: 

LINE-(199,59),K:LINE(89,59)-(199,.49),K 
1649 FOR Il=35 TO 65 STEP 15:PSET( 1 ,65) , 1 
・PRINT#1 "下り:NEXT 1T:COLOR 2:PUTSPRITE 39 
(69.39),15 

1659 PSET(159,89 ) ,1:PRINT 拉 1 "タカ ラノ 八 コ タ ~": 

K=INT(RND( 1 ) x599+599 ) : PSET(159,199) , 1 :PR 
INT#1。"+ "5Ki "MOoney":PM=PM+K 
1669 GOSUB 3649:FOR I=9 TO 2999:NEXT I:G 

OTO 3969 

4 析 moe を の ここ っ = ツモ 肥 。 “ip 
1689 SN=7:J=9:NM$= "MONSTER-SIMOLE":FOR 1I 

=9 TO 3:CP(IT)=INT(RND( 1 )%X59+199):LF(I)=5 

9 :MO( 1 )=INT(RND( 1 )x29+19):NEXT I:E=9 
1699 GOSUB 3629 

1799 IF LF(9)>9 THEN PUTSPRITE 7, (299 ,20 
0 

1719 IF LEF(1)>9 THEN PUTSPRITE 8,(299,49 
) 4 用 

1729 IF LF(2)>9 THEN PUTSPRITE 9,(229,29 
) と 

1739 PUTSPRITE 19,(229,49),8:PUTSPRITE 9 
(149,39) ,15 

1749 GOSUB 3149:GOSUB 3229:IF M$="1" THE] 

N PSET(159,89 ) , 1 :PRINT#1 ,」"] ュ エ r ト EK ト 上" FOR 1 

=9 TO 2999:NEXT IE:GOSUB 3229:GOTO 1799 

1759 IF M$="2" THEN GOSUB 3239:GOTO 1799 

1769 IF M$="3" THEN GOSUB 3429:GOTO 1799 

1779 IF M$="4" THEN GOSUB 3569:GOTO 1799 

1789 IF M$S く <>"5" THEN 1799 

1799 IF J=1 OR INT(RND( 1 )%29) >13 THEN J= 

1:GOSUB 2989:GOTO 1799 ELSE 2969 

お 壇 且 の ーー で やら 見え コテ ーm ニ ーー ら や どっ ーー 

1819 SN=11:J=9:FOR I=9 TO 3:CP(I)=INT(RN 

D(1)x*39+59):LF(T)=29:MO(T)=INT(RND( 1 )x19 

+19):NEXT I:NM$ ゃ = "MONSTER-VOLMS " :E=9 

1829 GOSUB 3629 

1839 IF LF(9)>9 THEN PUTSPRITE 11.,(299,2 

9 ) ,11 

1849 IF LF(1)>9 THEN PUTSPRITE 12。(2099 4 

9 ) ,11 

1859 IF LF(2)>9 THEN PUTSPRITE 13。(229,2 

9 ),11 

1869 PUTSPRITE 14,(229.49),4:PUTSPRITE 9 

ぅ (149.39),15 

1879 GOSUB 3149:GOSUB 3229:IF M$ も ="1" THE 

N PSET(159,89) ,1:PRINT 持 1 "エキ メト ゴー "EEOR 

I=9 TO 2999:NEXT 1:GOSUB 3229:GOTO 1839 

1889 IF M$="2" THEN GOSUB 3239:GOTO 1839 

1899 IF M$="3" THEN GOSUB 3429:GOTO 1839 

1999 IF M$="4" THEN GOSUB 3569:GOTO 1839 

1919 IF M$ く >"5" THEN 1839 

1929 IF J=1 OR INT(RND( 1 )x29)>15 THEN J= 

1:GOSUB 2989:GOTO 1839 ELSE 2969 

193 の 9 “= ニニ ニー ニー ニー ニー ニー E の が ジー ピラ ーー では ち な 

1949 SN=15:J=9:FOR I=9 TO 3:CP(I)=INT(RN 

D(1)%39+59):LF(T)=29:MO(T)=INT(RND( 1 )x19 

+19):NEXT I:NM$ や = "MONSTER-ZENAN" :E=9 

1959 GOSUB 3629 

1969 IF LF(9)>9 THEN PUTSPRITE 15,(299,2 

9 ) ,8 

1979 IF LF(1)>9 THEN PUTSPRITE 16,(299,4 

9) ,8 

1989 IF LF(2)>9 THEN PUTSPRITE 17.(229。2 

9 ),8 

1999 PUTSPRITE 18,(229.49),19:PUTSPRITE 

9 り ,(149.39),15:GOSUB 3149:GOSUB 3229 

2999 IF M$="1" THEN PSET(159,89) ,1:PRINT 

1。"@ @ @⑨ ⑲":FOR 1=9 TO 2999:NEXT 1I:GOSU 

B 3229:GOTO 1969 

2919 IF M$="2" THEN GOSUB 3239:GOTO 1969 

2929 IF M$="3" THEN GOSUB 3429:GOTO 19669 

2939 IF M$="4" THEN GOSUB 3569:GOTO 1969 

2949 IF M$ く <>"5" THEN 1969 

2959 IF J=1 OR INT(RND( 1 )x29) >15 THEN J= 

1:GOSUB 2989:GOTO 1969 ELSE 2969 

2 衣 6 誠 っ ニニ ーー らき N 了 プラ ジ ニー テー テキ テ ーー デラ 

2079 IF PE く <29 THEN 3969 

2989 SN=19:J=9:CP(9)=INT(RND( 1 )x199+1099 ) 

・CP(1)=INT(RND( 1 )*299+199):LF(9)=199:LF( 

1)=199:LF(2)=9:LF(3)=9:NM$ も = "HELL-FLOWER" 

2999 MO(9)=INT(RND( 1 )x29+39 ) :MO(1)=INT(R 

ND( 1 )x29+39 ) :E=9 

2199 GOSUB 3620 


2119 IF LF(9)>9 THEN PUTSPRITE 19,(299,2 

9),13 

2129 IF LF(9) く 1 AND LF(1)<1 THEN 3969 

2Z139 PUTSPRITE 29,(299, 49 ) , 12:PUTSPRITE 

9 り ,(149,39 ) ,15:GOSUB 3149:GOSUB 3229 

2Z149 IF M$="1" THEN PLAY"V1902L16CRDRERF 

RG":GOTO 2116 

2159 IF M$="2" THEN GOSUB 3239:GOTO 2169 
ELSE 2179 

2169 IF LF(E) く 1 THEN 2229 

2Z179 IF M$="3" THEN GOSUB 3429:CP(E)=399 
:LF(E)=199:GOTO 2118 

2189 IF M$="4" THEN GOSUB 3569:GOTO 2199 
ELSE 2299 

2199 IF LF(E)<1 THEN 2229 

り 

2299 IF M$ く >"5" THEN 2119 

2219 IF J=1 OR INT(RND( 1 ) x29 ) >19 THEN J= 
1:GOSUB 2989:GOTO 2119 ELSE 2969 

2Z229 IF INT(RND( 1 )x19) く <5 THEN PUTSPRITE 
19,(9,9),9:PUTSPRITE 29,(9,9),9:GOSUB 32 

2Z9:PSET( 159 ,89 ) , 1 :PRINT 拉 1 , "ニケ サト タ ソ ~ 1!" :FOR 
!=9 TO 2999:NEXT I:GOTO 3969 ELSE 2119 

223 人 9 "ーーーーーーーー ニ ーーー ア ヒ ルス 
2249 IF PE<39 THEN 3969 

2Z259 SN=21 :J=9:FOR I=9 TO 1:CP(I)=INT(RN 

D( 1 )x199+499):CP(I+2)=9:LF(1T)=199:LF(1T+2 
)=9:MO( IT)=INT(RND( 1 ) x29+89) :NEXT 1:NM$ も =" 

DEVILS":E=@ 

2269 GOSUB 3629 

2Z279 IF LF(9)>9 THEN PUTSPRITE 21,(299,2 

9),8 

2Z289 PUTSPRITE 22,(299., 49 ) , 5:PUTSPRITE 9 
(149,39) ,15:GOSUB 3149:GOSUB 3229 

2Z299 IF M$="1" THEN K=INT(RND( 1 ) x299+299 
):PSET( 159,99 ) :PRINT#]1 , "カネ ブ ワタ セ ":PSET( 1 
59 , 89 ) , 1:PRINT 拉 1 Ki" クレ シット" ELSE 2349 

2Z399 PSET(159,119),1:PRINT#1 ,"[1] トド ウソ ~" 
・PSET( 159, 129 ) , 1 :PRINT##1 。"[2] ヤ タ ~!" 

2319 M$=INKEY$: IF M$ も ="" THEN 2319 

<329 GOSUB 3229:IF M$="1" THEN PSET(159, 

89 ) , 1:PRINT#1 "ヨシ イイ ソ ~ " : PM=PM-K :GOSUB 36 
49:GOTO 3969 

2Z339 IF M$="2" THEN PSET( 159, 89 ) , 1 : PRINT 
寺 1 。 "ヤッ ツケ ヨウ ! ":FOR 1=9 TO 3999:NEXT 1:GOT 
0 2279 

2349 IF M$="2" THEN GOSUB 3239:GOTO 2359 
ELSE 2369 

2Z359 IF LF(E) く <1 THEN 24186 

2369 IF M$="3" THEN GOSUB 3429:GOTO 2379 
ELSE 2389 

2379 IF LF(E)<1 THEN 2419 

2389 IF M$="4" THEN GOSUB 3569:CP(E)=159 
・LF(E)=159:GOSUB 3629:GOTO 2279 

2399 IF M$ く >"5" THEN 2279g 

<499 IF J=1 OR INT(RND( 1 ) x29) >19 THEN J= 
1:GOSUB 2989:GOTO 2279 ELSE 2969 

<419 K=INT(RND( 1 )x19):IF K<5 THEN GOSUB 

3229:PUTSPRITE 21.(9,9),9:PUTSPRITE 22,( 

9,9),9:PSET(159,89 ) , 1 :PRINT#1 ," ニ リタ ソ ~ 1" 
:FOR 1I=9 TO 2999:NEXT 1I:GOTO 3969 ELSE 2 

279 
2429 
2439 PF=1:L し =1 

<449 J=9:NM$= "MONSTER- BEE-DEE" :E= 1 :CP( 1 ) 

=1999:LF(1 )=1999 

2459 GOSUB 3629:PUTSPRITE 23,(299,39) 。11 
・PUTSPRITE 9,(149,39) , 15:GOSUB 3229:GOSU 

B 3149:GOSUB 322 

<469 IF M$="1" THEN PSET(159,89) , 1 :PRINT 

#1 "ワタ シル ツウ ヨイ !":FOR 1=9 TO 2999:NEXT 1:GO 

TO 2459 

2479 IF M$="2" THEN GOSUB 3239:LF(1 )=199 

9:GOSUB 3229:PSET( 159, 89 ) , 1 : PRINT#1 , "ハッ 

人 1=9 TO 2099:NEXT 1I:J=9:GOTO 2 
2<489 IF M$="3" THEN GOSUB 3429:CP(1)=199 

9:LF( 1 )=1999:GOSUB 3229:PSET(159,89) ,1:P 

RINT#1 "カラ 2 イ タ ト サ タ ~":FOR 1=9 TO 2999:NEXT 
1:GOTO 2459 

2499 IF _M$="4" AND SS(9)=1 AND EN>29 THE 

N LINE(169,35)-(165,49) ,6:FOR I=179 TO 2 

99 STEP 5:Y1=(I MOD 2)%5+35:LINE- (1,Y1 ) 。 

6:NEXT I 


ELSE GOSUB 362 


2Z599 IF M$="4" AND SS(9)=1 AND EN>29 THE 
N PUTSPRITE 23,(9,.9),9:LINE( 149,35 ) - (299 
,49) ,1,BF:PSET(159,89),1:PRINT#1,"K 1 L 
L!":GOSUB 3959:FOR I=9 TO-3999:NEXT 1I:LI 
9:R=9:B=9:GOTO 3969 

2519 IF M$ く >"5" THEN 2459 

2S529 IF J=1 OR INT(RND( 1 ) x29 ) >19 THEN J= 
1:GOSUB 2989:GOTO 2459 ELSE 2969 

2539 '-ーーーーー ワル イ マ ホ ウ ツ カ イ 
2549 上 し =1:B=1 

2559 J=9:NM$= "BAD-MAGICIAN" :E= 1 :CP( 1 )=19 
9 り 9:LF(1 )=10999 

ZS569 GOSUB 3629:PUTSPRITE 4,(299,29),13: 
PUTSPRITE 5,(299,36 ) , 13:PUTSPRITE 9,(149 
ぅ 39 ) ,15:GOSUB 3229:GOSUB 3149:GOSUB 3229 
ZS579 IF M$="1" THEN PSET(159, 89) , 1 : PRINT 
革 1 "ワタ シ "PSET(159, 99 ) , 1 : PRINT#1 ," ワ ルイ コ 
"・FOR IT=9 TO 2999:NEXT 1:GOTO 2569 

2589 IF M$<>"2" THEN 2659 

2599 IF SS(2)=9 AND SS(3)=9 THEN GOSUB 3 
239:CP(9)=1999:LF(9)=1999:GOSUB 3229:PSE 
T(159,89 ) , 1 :PRINT##1 , "ナニ ヲ シテ ル ノ ?":FOR IT=9 
TO 2999:NEXT 1I:GOTO 2569 

2699 IF SS(3)=9 THEN 2639 ELSE LINE(175。, 
29)-(189,69),11.BF:LINE( 165,39 ) - (199, 35 ) 
ぅ 11,BF:PSET(159,89) , 1 :PRINT 手 1," ヒ エー 1 の: 
GOSUB 3959:FOR I=9 TO 3999:NEXT 1I:PUTSPR 
ITE 4,(9.9),9:PUTSPRITE 5,(9,9),9 

2619 LINE(169,29)-(199,69) , 1 ,BF:GOSUB 32 
29:PSET( 159,89) , 1 :PRINT#1 "Money+299":PM 
=PM+299:PSET( 159, 99 ) , 1 :PRINT#1 , "LEVEL+5" 
・PE=PE+5:PSET( 159, 199 ) , 1 :PRINT#1 , "POWER+ 
199":PP=PP+199 

2Z629 GOSUB 3649:CR(5)=9:L=9:R=9:F=9:B=9: 
FOR I=9 TO 3999:NEXT I:GOTO 3969 

2639 LINE(175,29)-(189,69) ,4,BF:LINE(165 
づり )-(199,35 ) , 4 ,BF : PSET( 159, 8 ) , 1 : PRINT 
1 リツ レ ハル ニセ ノ ":PSET(159,99 ) , 1 :PRINT#1 ," シ トラ 
ウシ "カタ "EPSET( 159 ,199 ) , 1 : PRINT#1 , "ホン モノ " 
・PSET(159,119) ,1:PRINT#1 , "マタ * ナイ " 

2649 FOR I=9 TO 6999:NEXT 1I:LINE(169, 29 ) 
-(199,69 ) , 1 ,BF:GOTO 2569 

2Z659 IF M$="3" THEN GOSUB 3429:CP(9 ) =CP( 
り )+599:LF(9)=LF(9)+599:PSET(159,89 ) , 1 :PR 
1NT##1 。" オ コッ タ ソ ~ー":EOR TI=9 TO 2999:NEXT I:G 
OTO 2569 

2669 IF M$="4" THEN GOSUB 3569:GOSUB 322 
り :CP(9)=CP(9)+599:LF(9)=LF(9)+599:PSET( 1 
59, 89 ) , 1:PRINT#1 "フォ ッ フォ ッ ":FOR I=9 TO 29 
99:NEXT 1I:GOTO 2568 

2679 IF M$ く >"5" THEN 2569 

2689 IF J=1 OR INT(RND( 1 ) x*29 ) >19 THEN J= 
1:GOSUB 2989:GOTO 2569 ELSE 2969 

2699 "ーーーーーー- CLOWN ノ カミ サマ 
2799 IF CR(9)=9 THEN 3969 
2719 PUTSPRITE 26,(169,24) , 15:PUTSPRI TE 
27,(169,49) ,15:PSET(159,89 ) , 1 : PRINT#1 ," ワ 
タ シ 八 ・・・":FOR TI=9 TO 2999:NEXT 1I:PSET(159 
,99 ) ,1:PRINT 拉 1 "カミ サマ シャ":FOR I=9 TO 299 
9:NEXT I:PSET(159,199 ) , 1 :PRINT#1 , "シュ ウシ ~ 
カ 2":PSET(159,119),1 

2729 PRINT#1 , "アサ ケ ~ ヨ ウ ":FOR 1=9 TO 2999:NEX 
T I 

2739 SS(3)=1:GOSUB 3229:PSET(159,89) ,1:P 
RINT#1 , "POWER+ 199" :PP=PP+ 199 : PSET(159,99 
)。1:PRINT 本 1 "MAGIC+199" :MP=MP+ 199 :CR(9 ) = 
Mg 

2Z749 GOSUB 3649:FOR I=9 TO 3999:NEXT 1I:G 
OSUB 3229:PSET( 159, 89) , 1 :PRINT#1 , "サラ ハト シ * 
ャ "・FOR I=9 TO 3999:NEXT 1I:PUTSPRITE 26,( 
9,9),9:PUTSPRITE 27,(9,9) ,9:GOTO 3969 
2759 *-ーーーーーー レル 基 zo か の 
2769 R=1:B=1:J=9:NM$= "FIRE-DRAGON" : CP( 1 ) 
=1999:LF( 1 )=1999:E=1:PUTSPRITE 24,(299,3 
り ) ,8:PUTSPRITE 25,(216,39) ,8 

2779 PUTSPRITE 9,(149,39) ,15:GOSUB 3629: 
GOSUB 3229:GOSUB 3149:GOSUB 3228 

2789 IF M$="1" THEN PSET(159,89) , 1 :PRINT 
持 1 "シー ラウ シ ~ カ " : PSET( 159 , 99 ) , 1 : PRI NT#1 ," ヲ ワ 
グ 民 = 「・PSET(159,119 ) , 1 :PRINT#1 。"[11 ト ^ ッ 、 ト 
ー ウ トリ:PSET( 159 , 129 ) , 1 : PRINT#1 ,"[2] ヒー エー 
ELSE 2826 

<799 M$=INKEY$: IF M$ も ="" THEN 2799 


ク ん 


2899 GOSUB 3229:IF M$="1" AND SS(2)=1 TH 
EN SS(2)=9:PSET(159,89) ,1:PRINT 失 1 "ヨシ ト オ 
レ し ":FOR 1I=9 TO 2999:NEXT 1I:L=9:R=9:F=9:B= 
9:GOTO 3969 
2819 IF M$="1" THEN PSET(159,89) ,1:PRINT 
1 , "コレ テ ~) ナ イ 1!" :FOR IT=9 TO 2999:NEXT 1:GO 
TO 2779 
2829 IF M$="2" THEN GOSUB 3239:GOSUB 322 
9:PSET(159,89) ,1:PRINT##1 ," オ コッ タ ソ "ー" FOR 
1=9 TO 2099:NEXT 1I:CP(9)=5999:LF(9)=5999 
:J=9:GOTO 2779 
2839 IF M$="3" AND MM>2 AND MP>199 THEN 
PUTSPRITE 24,(9,9),9:PUTSPRITE 25,(9.9)。, 
9:CR(6)=9:GOSUB 3959:PSET(159.89),1:PRIN 
T#1 "トラ コン 八 ":PSET(159 ,99 ) ,1:PRINT 拉 1 。" こ 
ケ ^ テ イッ タ ": PSET(159,119),1:PRINT#1 "LEVEL+ 
19":PE=PE+19:GOTO 2849 ELSE 2859 
2849 PSET(159,129 ) , 1:PRINT#1 "Money+299" 
: PM=PM+ 299 : PSET( 159 ,139 ) , 1:PRINT#1 , "MAGI 
C-199":MP=MP-199:GOSUB 3649:FOR I=9 TO 6 
999:NEXT 1I:F=9:B=9:L=9:R=9:GOTO 3969 
2859 IF M$="3" AND MM<3 AND MP<59 THEN P 
SET( 159,89 ) , 1 :PRINT#1 , " マ ホ ウ カ ^":PSET(159 , 
99 ) , 1 : PRINT 伯 1 , "ツウ シナイ ! ":FOR 1=9 TO 3999 
:NEXT I:GOTO 2779 
2869 IF M$="4" THEN GOSUB 3569:CP(9)=CP( 
9)+599:LF(9)=LF(9)+599:GOTO 2779 
2879 IF M$S く >"5" THEN 2779 
2889 IF J=1 OR INT(RND( 1 )x29)>19 THEN J= 
1 :GOSUB 2989:GOTO 2779 ELSE 2969 
2 お 9 “ニュー ニュ = ニー ご ーー DO 光ら の や ウー の ats 
2999 IF PM<51 THEN 3969 
2919 PUTSPRITE 31,(169,49) ,4:PSET(159,89 
) , 1 : PRINT 拉 1 , "アリ マス カ ? " : PSET( 159、199),1:PRI 
NT#1 。"[1] YES":PSET(159,119),1:PRINT#1, 
[2] NO" 
2929 M$=INKEY$:IF M$ く >"1" AND M$S く >"2" TH 
EN 2929 
2939 GOSUB 3229:IF M$="2" THEN PUTSPRITE 
31 ,(9.9) ,9:GOTO 3969 
2949 GOSUB 3959:K=INT(RND( 1 )*199):IF K>5 
9 THEN J=INT(RND( 1 ) x29+39 ) : PM=PM-J:PSET ( 
159,89) ,1:PRINT#1 "Money- "ji り :GOSUB 3649: 
PUTSPRITE 31,(9.9),9:FOR 1I=9 TO 2999:NEX 
T I:GOTO 3969 
2959 J=INT(RND( 1 ) x29+39 ) :PSET(159,89) 1: 
PRINT#1 , "Money+" jJ:PM=PM+J:GOSUB 3649:FO 
R 1=9 TO 2999:NEXT I:PUTSPRITE 31.(9.9)。, 
9:GOTO 3969 
296 = ニニ ニー ニー ピー ピー ご や (回ら マー テー テー で コー テウ 
2979 LINE(19,169)-(149,199) ,1.BF:GOSUB 3 
229:PSET( 159,89) , 1:PRINT 欄 1 "ニケ ロー ! "EEFOR 
1=9 TO 2999:NEXT 1I:GOTO 3969 
2 の 8 “ニニ ニー ニニ テー サー ルレ ゴ オ ニー ャ に mo! つ デ ご の 
2999 GOSUB 3229:PSET( 159 , 89 ) ,1:PRINT#1 ," 
ター メ タ ~ 1 "=1:FOR 1=9 TO 2999:NEXT I:RETU 
RN 
1 タコ "ググ = ニー ママ ーー ニー エー テー デア 
3919 PUTSPRITE 28,(52,44),7:PUTSPRITE 29 
。(52.69) ,7:TA=TA+1:PSET(159 89) ,1:PRINT 六 
1 "オラ タコ ~ サ ク ":PSET (159,99 ) , 1:PRINT 補 1,TAi" 
セイ タ ~":PSET( 159,199 ) ,1:PRINT#1 。 "キヨ カシ ョ ブ " 
: PSET( 159 ,119) ,1:PRINT1 "カッ テク ン ロ ": PSET( 1 
59 , 129 ) , 1:PRINT 拉 1 。" [1] へ エエ" 
3929 PSET(159,139) ,1:PRINT#1 。"[2] ヤー タダ “ ド 
3939 M$=INKEY$:IF M$ く >"1" AND M$ く >"2" TH 
EN 3939 
3949 GOSUB 3229:IF M$ も ="2" THEN PSET(159。 
8 ) , 1 :PRINT#1 。" ア ンタ ナン カ ":PSET(159.99),1:P 
RINT#1 "キラ イ タ ~ー":POR I=9 TO 3999:NEXT 1!: 
PUTSPRITE 28,(9.9).9:PUTSPRITE 29.(9.9)。 
9:GOTO 3@69 
3959 IF PM<299 THEN PSET(159。88) 、1:PRINT 
1 , "カネ カ ` タリ ナイ ":FOR 1=9 TO 2999:NEXT 1I:M$ 
="2":GOTO03949 ELSE PSET(159,89),1:PRINT 間 
1 , "サン キュ -" : PM=PM-299:GC(INT(RND( 1 ) *3) ) =1: 
GOSUB 3649:FOR I=@ TO 2999:NEXT I:PUTSPR 
ITE 28,(9,9),9:PUTSPRITE 29,(9.9),9:GOTO 
39609 
3 "= マー= ニ = ニテ ーー テニ 衣 っ 1 の ちの の = ウー ピー マビ 
3979 GOSUB 3229:PSET(159,89),1:PRINT#1。" 
カー ソル テ ^":PSET(159,99 ) ,1:PRINT##1. "イト ドウ シロ 
3989 IF STICK(9)=3 AND R=9 AND X<8 THEN 
X=X+1:GOTO 3139 
3999 IF STICK(9)=7 AND L=9 AND X>9 THEN. 
X=X-1:GOTO 3139 


3199 IF STICK(9)=1 AND F=9 AND Y>9 THEN 
Y=Y-1:GOTO 3139 

3119 IF STICK(9)=5 AND B=9 AND Y<8 THEN 
Y=Y+1:GOTO 3139 

3129 H=FRE(9):GOTO 3989 

3139 FOR I=9 TO 3:LF(1I)=9:NEXT:GOSUB 395 
9:LINE(199,29)-(245,69 ) ,1,BF:GOSUB 3229: 
FOR 1I=9 TO 31:PUTSPRITE 1,(9,.9),9:NEXT 1 
:LINE(19,169)-(149,199) ,1,BF:GOTO 299 

3 山 価 間 wa こら な ドス 記 2 ココ ウマ ャ ーー ピラ ゃ ママ 
3159 GOSUB 3229:PSET(159,89),1:PRINT#1," 
ト ~ ウ スル ?":PSET(159 199) ,1:PRINT 拉 1"[1] 八 ナ 
ス ":PSET(159,119) ,1:PRINT 持 1 、"[2] タタ カウ ":PS 
ET(159,129) ,1:PRINT#1 ,"[3] て マ より ウ ":PSET(159 
,139 ) , 1 :PRINT#1 。"[4] フ ナラ スター" : PSET( 159 ,149 
) ,1:PRINT 拉 1 、"[5] ニケ" ル " 

3169 M$=INKEY$:IF M$ く >"1" AND M も S く >"27 AN 
D M$<>"3" AND M$< く >"4" AND M$S く >"5"THEN 31 
69 

3179 GOSUB 3229:IF M$="1" OR M$="2" OR M 
$="5" THEN RETURN 

3189 IF M$="3" AND MM<1 THEN PSET(159,89 
) 。 1 : PRINT 提 1 "マタ ~ ツ カ エ ナ イ ":FOR 1=9 TO 2099: 
NEXT 1:GOSUB 3229:GOTO 3149 

3199 IF M$ ゃ ="3" AND MP<29 THEN PSET(159,8 
9) ,1:PRINT#1。 "ワー カ ~ "EPSET(159.99),1:PR 
INT#1 , "タリ ナイ !":FOR 1=9 TO 2999:NEXT 1I:GO 
SUB 3229:GOTO 3149 

3299 IF M$="4" AND SS(9)=9 THEN PSET(159 
,89 ) , 1:PRINT##1 "マタ * タ *ー メ "EEFOR 1=9 TO 209 
9:NEXT 1I:GOSUB 3229:GOTO 3149 

3219 RETURN 

3229 LINE(159,89)-(249,159 ) , 1 ,BF: RETURN 
29 pi に の IN も MOGMG = ニー ニャ ペー デー デー 
3249 PSET(159,89) , 1:PRINT1 。" カ ー ソ ル テ ~ "IPS 
ET(159,99) , 1 :PRINT#1 ," ウ コカ セ !『 

3259 X1=149:Y1=39:PUTSPRITE 9,(X1,Y1),15 
3269 M$=INKEY$:IF M$="" THEN 3269 

3279 IF M$=CHR$(39 ) AND Y1>29 THEN Y1=Y1 
a 

3289 IF M$=CHR$(28 ) AND X1<249 THEN X1=X 
ます 

3299 IF M$=CHR$(31) AND Y1<48 THEN Y1=Y1 
+ 1 

3399 IF M$=CHR$(29) AND X1>131 THEN X1=X 
引 

3319 J=X1 MOD 2:PUTSPRITE 9,(9,9),9:PUTS 
PRITE 1,(9,299),9:PUTSPRITE J,(X1.Y1),15 
3329 IF LF(1)>9 AND CP(1)>9 AND X1>184 T 
HEN 3349 

3339 IF LF(3)>9 AND CP(3)>9 AND X1>299 T 
HEN 3349 ELSE 3269 

3349 FOR E=9 TO 3:IF LF(E) く 1 THEN NEXT E 
3359 GOSUB 3229:IF INT(RND(1)x199)>79 TH 
EN 3419 

3369 PSET(159,89),1:PRINT#1。"H 1 T ! "LE 
(E)=LF(E)-INT(PP/29 ) :GOSUB 3959:GOSUB 36 
29 

3379 IF LF(E) く 1 THEN GOSUB 3959:PSET(159 
>199) ,1:PRINT#1 "KILL ! "FOR 1=9 TO 2090 
: NEXT 1I:PM=PM+MO(E ) : PE=PE+ 1 : J=9:PUTSPRIT 
E SN+E,(9.9),9 ELSE PUTSPRITE 9,(9,9),9: 
PUTSPRITE 1.(9.9),9:RETURN 

3389 PUTSPRITE 1,.(9,9),9:GOSUB 3229:1F L 
F(9) く 1 AND LF(1)<1 AND LF(2) く <1 AND LF(3) 
く 1 THEN 3969 

3399 IF INT(RND(1)x19)>6 THEN FOR I=SN T 
0 SN+4:PUTSPRITE 1!,(9,9),9:NEXT 1I:GOSUB 
3229:GOSUB 3959:PSET(159,89),1:PRINT#1." 
ニケ ~ タ ソ ^! "FOR IT=9 TO 2999:NEXT I:GOTO 396 
り 

3499 E=E+1:GOSUB 3629:RETURN 

3419 PSET(159,89) ,1:PRINT#t1."M 1 S SEP 
P=PP- INT(CP(E)/19) :GOSUB 3959:IF PP く <1 TH 
EN GOSUB 3649:GOSUB 3629:FOR I=9 TO 5S099 
: NEXT :GOTO 3679 ELSE GOSUB 3649:FOR 1=9 
TO 2999:NEXT 1I:PUTSPRITE 9,(9,9),9:PUTSP 
RITE 1,(9.9),9:RETURN 

の し 二 昌 ) ウ ーー ニテ や ーー 
3439 PSET(159,89) ,1:PRINT# せ 1 、" ト に レニ スル 771P 
SET(159,199) ,1:PRINT#1,"[11FROZEN":PSET( 
159,119) ,1:PRINT#1 ,"[21SPARK" : PSET( 159,1 
29 ) , 1 :PRINT#1 ,"[31VOLT "PSET(159,139) ,1: 
PRINT##1。"[4]1WARP" 

3449 M$=INKEY$:IF M$="" THEN 3449 


3459 GOSUB 3229:IF VAL(M$) >MM THEN PSET( 
159,89) , 1 :PRINT#1 "ツレ LA タメ ":FOR 1=9 TO 2 
999:NEXT I:GOSUB 3229:GOTO 3439 
3469 IF M$="1" AND MP>29 THEN LINE(195,1 
7)-(245,63) , 1,BF:LINE(195,29)-(245,69) ,4 
, BF : PSET(159, 89) ,1:PRINT#1 "ニケ + ロ ー !":FOR 
1=9 TO 2999:NEXT 1』:MP=MP-29:GOTO 3969 
3479 IF M$="2" AND MP>49 THEN 3489 ELSE 
3499 
3489 PSET(159,89) ,1:PRINT#1 "スル "ーー ク 1":F 
OR 1I=29 TO 69 STEP 2:LINE(169,49)-(299,! 
) 11:NEXT 1:CP(E)=CP(E)-49 :MP=MP- 4 : GOSU 
B 3959:FOR 1=9 TO 2999:NEXT I:FOR 1I=29 T 
0 69 STEP 2:LINE(169,49)-(299,1 ) ,1:NEXT 
1 :GOSUB 3629:GOSUB 3649:GOTO 352g 
3496 IF M$="3" AND MP>69 THEN PSET(159,8 
9 ) , 1 : PRINT#1 ," ホ *ー ル トー !":FOR 1=169 TO 249 
STEP 3:CIRCLE( 1 ,49) ,2,11:NEXT 1I:LF(E)=L し 
F(E)-69:MP=MP-69 :GOSUB 3959:FOR I=9 TO 2 
999:NEXT I:LINE(149,35 )-(249 ,45) , 1 ,BF:GO 
SUB 3629:GOSUB 3649:GOTO 3529 
3599 IF M$="4" AND MP>199 THEN PSET(159, 
89 ) , 1 :PRINT#1 , "ワーーー ブ * 1" EGOSUB 3959:FOR 1 
=9 TO 2999:NEXT I:FOR J=9 TO 31:PUTSPRIT 
E J,(9,9),9:NEXT J:MP=MP- 199:X=4:Y=4:GOT 
0 299 
3519 PSET(159,89) ,1:PRINT#1 "パワー が か":PS 
ET(159, 99 ) , 1 :PRINT#1 ," タ リナ イ !":FOR I=9 TO 
2999:NEXT 1:GOSUB 3229:GOTO 3429 
3529 GOSUB 3229:IF (CP(9)<1 OR LF(9) く 1 ) 
AND (CP(1) く <1 OR LF(1)<1) AND (CP(2)<1 OR 
LF(2) く 1 ) AND (CP(3) く <1 OR LF(3)<1 ) THEN 
PM=PM+MO( 1 ) : PE=PE+ 1 : PUTSPRITE SN+1,(9,29 
9 ) , 9:GOTO 3969 
3539 IF CP(E) く 1 OR LF(E) く 1 THEN PSET(159 
,89 ) , 1 :PRINT#1,"K 1 L L!":PUTSPRITE SN+E 
(9,9) ,9:PM=PM+MO(E) : PE=PE+ 1 :E=E+ 1 : GOSUB 
3649 ELSE RETURN 
3549 IF E=4 THEN 3969 
3559 IF INT(RND(1)x19)>6 THEN FOR I=SN T 
0 SN+4:PUTSPRITE 1I,(9,9),9:NEXT 1』:PSET(1 
59 , 199 ) , 1 :PRINT#1 。" ニ ケタ ソ ~ ! "EEFOR 1=9 TO 
2999:NEXT 1I:GOTO 3969 ELSE E=E+1:GOSUB 3 
629: RETURN 
3569 '---------- フト ラス ター --ーーーーーーーーーーー 
3579 IF EN<29 THEN PSET(159,89 ) , 1 :PRINT# 
1, "エネ ルキ トー カ ~ " : PSET (159 , 99 ) , 1 : PRINT#1 ," タ リナ 
イツ ^ ":FOR 1=9 TO 2999:NEXT 1!:RETURN 
3589 LINE(169,35)-(165,49),7:FOR I=179 T 
0 229 STEP 5:Y2=(I MOD 2)x5+35:LINE-(I,Y 
2) ,7:NEXT 1:K=INT(RND( 1 )*19+19):EN=EN-K: 
LF(E)=LF(E)-(K/2) 
3599 GOSUB 3959:IF LF(E)<1 THEN PUTSPRIT 
E SN+E,(9,9) ,9:PM=PM+MO(E ) : PE=PE+ 1 : GOSUB 
3649:E=E+1 
3699 IF E=4 THEN E=9:LINE(149,49)-(229,3 
5 ) , 1 ,BF:GOTO3969 
3619 FOR I=9 TO 1999:NEXT I:LINE(169,49) 
- (22 , 35 ) , 1 , BF:GOSUB 3629:RETURN 
3629 '-------- モン スタ ー ノ テーー タ ---ーーーーーーー 
3639 LINE(19,169)-(149,199),1,BF:PSET(16 
,169 ) , 1 :PRINT#1 ,NM$:PSET(19,179) ,1:PRINT 
#1 "LIFE POWER" :LF(E) :PSET(19,189) ,1:PRI 
NT#1 ,"ARM POWER":CP(E) : RETURN 
3649 '----ーーーー プッ レイ ヤー ノ テト ー タ --ー ニ ニー ニーーー 
3659 LINE(119,199)-(149,159) , 1 ,BF:PSET(1 
1,109 ) , 1 :PRINT#1 ,USING"####" PP:PSET( 11 
9,119) ,1:PRINT#1 ,USING" 拓 拉 ##" MP:PSET(119 
, 129 ) , 1 : PRINT#1 , USING" 提 ##":PM 
3669 PSET(119,139) , 1 : PRINT#1 ,USING" 村 ##" 
i EN: PSET( 119,149) , 1 :PRINT#1 ,USING" 柱 村 ##": 
PE : RETURN 
3679 "--------- ケト ー ム オー ハハ"ー ーー ニー ニニ ニニ ーーー 
3689 STRIG(9) OFF:SCREEN 9:LOCATE 15,18: 
PRINT"GAME OVER" :LOCATE 3,15:PRINT"If P1 
ay Again Push [RETURN] Key" 
3699 M$=INKEY$:IF M$<>CHR$(13) THEN 3699 
3799 RUN 
3719 DATA 9E.1F,35,3F,1B, 9E,3F,7F,EF,CF。 
DF, 18,38,39,79,E9,94, ゆ A,8A,8A,9A,9A,C9,D 
F,69,1C,8C,C9,Eg,79,39,3C 
3729 DATA 9E,1F,35,3F。1B,9E,3F,7F,EF,CF。 
DF, 18,38,39,79,E9 ,99,99,83,85,9A,54,28,D 
9,68,99,89,89,C9,E9,69,79 
3739 DATA 91,93,.97,9E。1C,38,32,39,33,38, 
1C,9F,99,9F,1E,3E,99,8B,C9,E9,79,38,98,1 
8,98,38,79,E9,99,E9,F9,F8 


3749 DATA 3E,3E, 3E, 3E, 3E, 7E, 7E,7E,。7E, 7E, 
7E。7E,7E,7F,99,78.F8.F8.F8,F8,F8,FC,FC,F 

C。FC,FC,FC,FC。FC。FC。99 。3C 

3759 DATA 99,99,99,.99,93.97,9F,8C,3B, 3F 。 

SE,3D,1F,9D,9F,99,93,9E,68,E9,89,99,89,C 
9.69,.69,E9 ,E9 ,C9 , 89 , 89 , 99 

3769 DATA 1F,3D,7D,FD,FD,FD,FD,FD,FD,FD。 

FD,FD,FD,FF,99,F9.C9.E9.F9,F8,F8,F8。F8,F 

8.F8.F8,F8.F8.F8.F8,99,E8 

3779 DATA 9E,1B,31.64.64.31,1B,9E,1F,35。 

7B,75.6E,7F,99,79.97,95.85,C4,C4 84,94.9 

C,14.A4.C4.C4。C4 。C4。94。C4 

3789 DATA 3F,6E,DC,B3,E7, 8B,32,C1 。91 ,93。, 
9C,79.91.92.94.18,FF,99,99,49,B9,98.CC。E 

C,6C,EC,AC,EC,。 46 , 23。 1 1 。@D 

3799 DATA 21.33.76.56.D3,D9,D4。D3,F7,F3, 

E9,C6,8C,98,.BD,AA,84.CC,6E,6A,CB, 9B, 2B,C 
B,EF,CF,97.。63。38。19,7D。55 

389 ひ DATA 99,.93,97,95,99,E3,99,98,95,93。, 
92.93,9D,18.38.28,F9.98.F8,78,79,E1,91.,E 
1 。E1 。71 。31 91.D1 。F3。7F。3E 

3819 DATA 98,1C,36,.63,36 ,1C,9B,99,93,97, 
1D,7B,E7,.FF,7F,AA,94.9E,1B,31 ,1B,2E,。44,。8 
9.C9.E9,F8,EE,F3,FF ,FE,55 

3829 DATA 19,19,9A,A7,AD,47,42.69,57,4F, 
47。47,45,48,5D,55.55.55,.95,9A,84,9C,14。2 
4.44.84.94.44.24.94.D4,54 

3839 DATA 91.93,95,9B,17,.3F,89,8F,56,23。, 
85,C9.71 .C3,.81 ,99,.99,89,C9,A9,D9,F8,92,E 
2.D4.88.42.26,1C,。86,.92。99 

3849 DATA 97,.9F,19.FF,AB,93,53,7F,91 ,99, 
り 99,99,91.93,3E,2A,FF,89,FE,89,FC,C9,C9。E 
り ,FF,FF,7F,D9,B9,69,F8,A8 

3859 DATA 9F,99,99,9E,11,26,.49。19,89,C4。, 

E3,F9,F8,7F,3F,1F,C9,69,39,18,8E,67,23,A 
3。23。.47。8F、1E、3C,F8 ,F4。E3 

3869 DATA 93,.97,9F,1C,1C,1A,18,19,1C,1A。 
11,19,93.97,9E,1D,C9,E9 ,F9,38,38,58,18,9 
8.38.58,.88,.98,.C9,E9 ,39,F8 

3879 DATA 3D, 3E, 3F, 3E,3E, 3E, 3E, 3F, 3E 。 3E, 
3E, 3E。 3F 。 3F , 99 , 3C, 1C,5C,FC, 3C, BC, BC, 3C,F 
に 。 7C。BC、BC ,7C。FC。FC 、B。3C 

3889 DATA 93.97,1F,99,9F,9A,97,92,97,99。 
3F,7F,FF,E8.CE、CE,89,C9,F9,99,Eg ,49。C9,4 
り ,C9,99,F8,FC,FE, 2E,E6 。E6 

3899 DATA CE,CF,C9,CA,CA,C9,CF,CF , 1F,1C, 
3C,。38 ,1C,。9C,94.94.E6,E6,96,A6,A6,96,E6,E 
6.F9,79,78.38,79,69,49,49 

3999 DATA 96.9D,1A,3F,79,71.E1,E1,E7,7D。, 
7D,3F,36.76,EE,DD,E9,D8,BC,FE,9F,97,97,8 
7,C6,7C,78.F9,C9,C9 ,Cg 。89 

3919 DATA 89,45,29,97,4F,9F,99,3F,39,36。, 
SE 。 3D, 3B, 3F , 3B, 3F , 12,24.91,FA,F9,E4 ,9C,D 

C,DC, DC,DC,DC,DC,D8 。D9 ,C9 

392 "ーーーーーーーーー エン ト ~ カカ "メン -ーーーーーーーーーーー 
3939 CLS:SCREEN 3:CLOSE #1 :OPEN "GRP: "AS 

#1:COLOR 15:PSET(15,29 ) , 1 : PRINT#1 , "STORY 
1":COLOR 13:PSET(89,69 ) , 1 : PRINT#1 "END" 
・COLOR 11:PSET(15,199) , 1 : PRINT#1 "GO NEX 

T":COLOR 4:PSET(49,159 ) , 1 : PRINT#1 。 "COSMO 
"2COLOR 2 

3949 GOTO 3949 

3959 "ーーーーーーーーーーー SOUIIO -ーーーーーーーーーーーーー 

3969 FOR 1I=9 TO 7:H=INT(RND( 1 ) x255 ) : SOUN 

D I,H:NEXT I:FOR 1I=8 TO 19:SOUND 1I,19:NE 

XT _I:FOR 1=11 TO 13:H=INT(RND( 1 ) x255 ) : SO 

UND I,H:NEXT 1 

3979 FOR 1I=9 TO 299:NEXT I:FOR 1I=7 TO 18 
・SOUND I,9:NEXT 1I:RETURN 

3989 "ーーーーーーーーー テ ~ー タ ノ セー ブフ ~ -ーーーーーーーーー 

3999 GOSUB 3229:PSET( 159, 89 ) , 1 :PRINT#1 ," 

カセ ッ ト ま ":PSET(159 99 ) , 1 : PRINT#1 。 "セット し て ": 

PSET( 159 , 159 ) , 1 : PRINT#1 , "RETURN 画 ":PSET( 
15 , 119) ,1:PRINT#1 。" お し て く た ~ こ さい" 

4999 :M$=INKEY$: IF M$ く >CHR も (13) THEN 499 

Mg 

4919 GOSUB 3229:CLOSE #1:O0PEN"CAS:CLOWN" 
FOR OUTPUT AS#1 :PRINT#1 ,X:Y:MP:PP:PM: SS 
(9)jSS(1)1SS(2):SS(3) :EN:CL:MM:PE:GC(9 ) : 

GC( 1 ) iGC(2):CR(9) :CR(1) :CR(2) :CR(3) :CR(4 
) iCR(5) :CR(6) 

4929 CLOSE 1:OPEN"GRP : "AS#1 :PSET( 159。89 
),1:PRINT##1 。" ツ ッ キ ヲ " : PSET( 159 ,99 ) , 1 : PRINT 

1 "トト ウソ ~ 1" :RETURN 
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>: フロ ツン を 動 サレ し て 
ボー ル を 外 に 出せ ! 


ちょ っ と 倉庫 番 ふ う の キ ャ ラク タ を 
動か し て 、 ボ ー ル を 出口 まで 誘導 する 
アク ショ ン パ ズル ゲー ム が だ 。 

ボー ル は プ ブロッ ク で 反射 し て 適当 に 
飛び まわ っ て いる の で 、 こ れ に あたら 
な いよ うに ブロ ッ ク を 押し て 動 め * そ を う 。 
ボー ル は ブロ ッ ク に あたる と は ね か え 
る の で 、 う まく ブロ ッ ク を 配置 し て 、 
出口 (1 面目 で は 4 隅 に ある ^x” の 
と ころ ) ま て 誘導 すれ ば いい の だ 。 


の 
シン 


の 
ン ン 


3000 一 3220 面 の バタ ー ン を 表示 する ン の デー の うち 、 ボ ー ル の 初期 位置 の 4230 行 か ら 4430 行 が 2 画 目 の 画面 デー* こり かえ すこ と に な る 。 だ か ら 、 つ 〇 面 の 


画 プ ロブ ラム の 説明 ・。 が 並ん で いる ボー ル に あたる と 1 人 入 減 り 、 画 面 右 
5 王 > イー ミ つ * NII. * ニー を ーー N 

150 一 210 NR っ ゼラ 0 トト の 残り 表示 が な く な る と ゲー ム オ ー 
250 一 370 ゲー ム 1 回 ご と に 行う イニ シ ・PC…… ス コア バー。 ま た だ 、 制 限 時 間 を こえ る と や っ 

ャ ライ ズ ・BL…… 残 り の ボール の 数 和 Ro 
390 一 400 スコ ア 、 残 り ウ イム の 表示 :BF…… ポ ボー ナス 表示 フラ グ て 〇 =ON ・ は ばり ゲー ム オ ー バ ー が だ (画面 に タイ 
410 面 ク リア 判定 ・ 1=OFP) ム が 表示 る れ て いる )。 
420 一 440 面 ク リア 処理 ・ 征 …… 残 り 時 間 ( 秘 ) : ン 
460 タイ ム オ ー バ ー 判 定 ・BX.BY…… ポ ボー ナス の 出現 し た 位置 ・ リプ レイ は 、 ス ペー スキ ー が だ 。 
470 一 480 ゲー ハム オーバー 処理 お よび ゲ * X.Y…… 人 の 只 標 ・ 

ー ム オー バー 判定 ・XH.YH…… 人 の 動 こ べき 方 向 を 算出 す ・ 
490-570 ゲー ム オ ー バ ー 処 理 ・ る デー タ ・ 画面 デ ー ツ に な つて いる の で す ざ 。 横 27 コ ・ ①170 行 の ビニ 1 の P は 「 最 大 面 数 一 1 
590--620 ポー ル に 当 だ つ だ と き の 娘 理 * AD…… キ ヤラ フ マ コ ー ド 読み 出し 用 の ・ マ 、 魚 21 コ マ の 画面 と 同じ よう に 、 〇 、: し た が つて 、 ご ここ を 2 に され ば 、 コ 面 、3 
640 一 780 カー ソル キー の 入力 に より 人 : アド レス ・1, 2 の 数 字 が な らん で いま す 。 ・ に すれ ば 4 面 に な る 。 

を 動か す ・ その 他 い こつ か ・ 見 比べ る と すぐ わか り ま す が O 〇 が 中 所 ・ @270 行 か ら 360 行 は 、 面 フリ アワ の た びに 
810 一 900 ボー ル を 動 グ す ・ 画 A message from`Nop chaser“: 1 ガブ ロッ フ (画面 の いち ば ん 外側 の プ ・ 読み こむ べき デー タ の ある 行 番号 を 指定 
1000-1220 キャ ラク フタ 定 義 を 行う 。 * (一 般 名 チエ ッ フ ポイ ント ) ・ ロッツ フ は 作り つけ に な つて いる の で デー* し て いる 。170 行 で ビ じ = と し て 10 面 に 設 
2000-2360 マシ ン 語 プロ グラ ム を メモ * 170 行 の M1 を M= n と し て ポール の ・ タ に は 出 て いな い )2 ガ 出口 の ^X” で ・ 定 し て も だ いじ よう ぶな よう に し て ある 

り に 書き こむ ・ 数 が 変え られ ます 。 ご の 場合 、 面 バツ ター : す 。 ・ けれ ど 、 こ の まま だ と ご 面 以降 は 1 面 を 


ICO 人 が 動 こ と き の 判 定 用 文字 列 。 
空白 、 ボー ル 、 ポー ナス 、 プロ ツ 
ク 、 外 壁 、 出 口 の 順 で キヤ ラク ヤ 


ら な こち や いけ ませ ん が 。 だ だ し 、 も ちろ ん 、 初 期 設 定 な ど で 若 * る 程度 入る と 思わ れる の で 、 や つて みる 
4010 一 4210 行 の リス ト を 画面 と 見 比べ ・ 千 の 修正 を 加え な ぐ く て は いけ な い 。 修正 : 価値 は ある だ ろう 。32 に なら 、 も ちろ ん 
て こ < だ さい 。 ご この デー は 、 そ の まま * すべ き 箇 所 は 、 ・ だ いじ よう ぶ ! 


4000 一 面 の パタ ー ン デー タマ 数 を 変え な いと ダメ 。 例え ば M= ら と し ・ に な つて いる の は も うわ か みり ます ね 。 ・ デー タ を 作 つ て 4450 行 以降 に つけ 加え だ 
較 変 政 リ スト ・ て 、4220 行 を DATA 8.7.23.15.15.2.8. ・ 4220 行 や 4440 行 の アー タ は 、 ポ ボー ル の ・ ら 、290 行 の RESTORE4230 を 、REST 
M…… ポ ー ル の 個数 一 1 ・16.21, 14, 17, 20, 17.10 と する と ポー ル : XY 座標 と 自分 の XY 崖 標 。 最初 か らら ・ ORE4450 に 変え な くち や ゃ いけ な い の だ 。 
P…… 最 大 面 数 一 1 ・ が ら コ に な る (面目 も デー タ を 直さ な ・ 個 目 の ア デー ツタ まで が 、 ボ ー ル 。 7 個 目 と ・ 4 面 以降 や 同様 に し て いけ ば 、10 面 目 ま 
WRK… ボ ポー ル の デー タ 格 納 番地 (先頭 ) ・ い と イケ ナイ ぞ )。 ・ ら 個 目 が 自分 の 初期 位置 の 座標 ・ で は 、 作 る こと が で きる 。 そ れ 以 上 ほし 
HI…… ハ イス コア ・ ポー ル が 、 あ ん まり 、 い つば ぱい に な る ・ これ ら の デー タマ は 、3000 行 か ら は じ ま ・ い 人 は 、 こ の あたり に 中 間 の 行 を 入れ れ 
CSCn う …… 面 表示 用 の キャ ラフ タ Cn ・ と 、 気 味 が 悪 こ て 、 こ つて も 楽し い の で ・ る と ころ で 読ん いで いる の で 、 じ つこ り と ・ ば いい 。 
ー 〇 で 空白 、n= ニ 1 で ブロ ・ す 。 ・ ブ プロ グラム が や っ て いる こと を 見 れ ば わ ・ さて 、 と ころ で も う 1 つ 注 意 点 び ある 。 
ツク 、n 三 つ で ボー ル の 出 * 画 自 作 面 も カン タン に 作れ る ! 。 作る 人 も 多い だ ろう 。 ・ ご の プロ グラ ム は 今 の まま で も 16 に バイ 
口 ) ・ ご ご に 掲載 し だ プロ グラ ム は 、 今 の と ・ と いう わけ で 、4450 行 以降 に 4010 行 ひか ・ ト ギ リ ギ リ な の で 、 面 デー を 増やす と 
則 お (nm う の 各 方 向 に 動い て いる 人 の キ ・ ろ 2 面 し ひか あり ませ ん が 、 面 は ひん だ ん < ら 4220 行 と 同じ 形式 で デー タ を 入れ れ ば ・ 16 に の マシ ン で は 入り きれ な いか も し レ れ 
ャ ラク フタ ・ に 増やせ ます 。 も ちろ ん 、 自 分 で 面 を 作 ・ 面 到 が や せる と いう わけ な の で す 。 : な い 。REM 文 な ど を 適当 に 除け ば 、 あ 


THE BALL 
20 の ENHANCED BY DEBU 


| 


9 


ーー 
^ 宮 INITIALIZE 

三 SCREEN 1:wIDTH 32:COLOR 15.9.9:CLS 
呈 KEY OFF 

剛 CLEAR 399.,&HDFFF:DEFINT A-Z:M=2:P=1 
還 DEF USR=&HE999:wRK=&HE9C8:HI=1999 

ピー DIM C$(2) .H$(3) 

呈 B=128:G=139:0=145:S=131:BO=129:BA=15 
呈 3:C$( 9 ) =CHR$(S) :C$( 1 )=CHR$(B) :C$( 2 ) =CHR$ 
ビ (0):FOR 1=9 TO 3:H$( 1 )=CHR$(137+Iw2):NEX 
己 T : B0$=CHR$( BO ) : BA$=CHR$( BA ) : G$=CHR$(G) : 1 
四 $=C$( 9 )+BA$+BO$+C$( 1 ) *G$+C$( 2 ) 

トー 219 GOSUB 2919:GOSUB 1919:PLAY“"T255L64“ 


= 
> 


届 


GAME START 


3 入 


76 


* 秘技 ・ キ ャ ラク ダ 定 義 


画 UMSX で は 図 - 1 の よう に キャ ラク  ② よ っ て 、 ユー ザー 定義 キャ ラク タ 
の パタ ー ン が VRAM に 入っ て いる 。 と し て 図 - 2 の よう な キャ ラク タ を 


D$:VPOKE &H208 十 VAL&HZ 二 
D$):NEXT:PRINTYA?:DATA 02, 
15,12,FE.10.54.54.10 と な る 。 


図 -1 定義 する に は 、SCREEN1 に し て 、 
ピ =0 TO 7:READ 
VRAM アド レス RESTORE :FOR 10 

&H208 

&H209 
&H208 &HZOA 
&H2OF &H20B | 

&HZOC 請 | | 一 &HFE 

&H20D 還 | | 一 &H82 

ser | | | | | | | | | smo 

図 -3 

&H7FF 


& H2000 


③ ユ ーー ザー 定義 キャ ラク タ に 色 を 付け る に は 次 の よう に 
行 を ば よい 。MSX の SCREEN 1 で は キャ ラク タ 8 つ に 
つき 、2 色 (背景 色 を 含む ) が 指定 可能 な の だ ( 図 3 )。 
だ と えば VPOKE &H2008, &HF 6 と する と 、⑧、A、B、 
C、D、E、F、G に 対応 し た キャ ラク タ が 赤地 に 白 で 表示 


され る よう に な る 。 & H201F 
HH EE EEB HB HB HB HB HB HB HB HB B BB 日 昌 旧 昌 昌 昌 上 昌 昌 昌 昌 旧 旧 上 | 


し 角 キャ ラク タ の カラ ー コ ー ド | 背景 の カラ ー コ ー ド 


0= カ ラー コー ドミ &HF 


器 
路 
油 
ドコ 
愛 
毅 
護 
色 
限 
此 
膜 
貞 
講 
隊 
褒 
朱 
箇 
局 
に 
難 
&H2008L、_ | = 
Ei 
早 
敬 


259 N=3:SC=9 : PCs@ 

269 ON PC MOD (P+1)+1 GOTO 279,289,298.3 
99.319.329.339,349 .358,369 

279 RESTORE 4919:GOTO 379 

289 RESTORE 4239:GOTO 379 

29 RESTORE 4919:GOTO 379 

399 RESTORE 4919:GOTO 378 

319 RESTORE 4919:GOTO 379 

329 RESTORE 4819:GOTO 379 

339 RESTORE 4819:GOTO 379 

349 RESTORE 4919:GOTO 379 

359 RESTORE 4919:GOTO 379 

369 RESTORE 4918 

379 GOSUB 319:BL=M+1: 

389 : 

399 
499 
419 
429 
439 
448 
459 
468 
479 
9 * 

489 NsN-1:LOCATE 26,23:PRINT USING*& &* 
:STRING$(N,H$(3) ) : :IF N>9 THEN 598 

499 PLAY*S19M1999CDCDDEDEFFF・* 

599 IF SC>HI THEN HI=sSC 

519 LOCATE 11,8:PRINT “GAME OVER* 

529 LOCATE 11,19:PRINT、*YOUR SCORE* 

539 LOCATE 16,11:PRINT USING" き "1SC 
549 LOCATE 11,12:PRINT "HI- SCORE* 

559 LOCATE 16,13:PRINT USING" き すき":HI 
569 LOCATE 19,15:PRINT "HIT [SPACE〕・* 
579 IF STRIG()=9 THEN 579 ELSE 259 

589 : 

599 


BF=9:TIME=9:T=249 


LOCATE 19.23:PRINT USING"# き きき "iT: 
LOCATE 8.23:PRINT USING" き きせ "1SC: 
IF BL>9 THEN 468 
PLAY"S1M199905CCCDDDCCCABABAB* 

IF PLAY(9) THEN 438 

PC=PC+ 1 :SC=SC+Tw19:GOTO 268 


IF T>9 THEN 658 
LOCATE BX,BY:PRINT C$(9): :BF=9:TIME= 


PLAY“"S9M199903BBAAGGFFEEDDCCCC* 


699 T=(T+1) MOD 4:LOCATE X,Y:PRINT H$(T ) 
*・』 ま =( エ +】1) MOD (Mt1】):IF USR(I)=0 THEN B し = 
BL- 1 :SCsSC+199:GOTO 878 

619 IF PLAY(9) THEN 699 

629 PLAY"S19M99907C* 

639 : 

649 " 
659 
669 
679 


MOVE BY STICK(9) 

! =STICK( 8 ) 

XH=(!=7)-(】=3) :YH ェ (1=]1 )-(1=5) 

IF XH=9 AND YH=9 THEN 8189 

689 AD=&H1898+X+XH+(Y+YH)w32 

699 ON INSTR(1I$,CHR$( VPEEK( AD ) ) ) GOTO 78 

9.719.769.749.819.816 

799 : 

719 LOCATE X.Y:PRINT C$(9)::X=X+XH:Y=Y+Y 

H:LOCATE X.Y:PRINT H$( 1-(XH=- 1)*2+YH) : 

729 GOTO 488 

739 : 

749 IF VPEEK(AD+XH+YHw32)=S THEN LOCATE 

X+XHw2.Y+YHw2:PRINT C$(1)::GOTO 789 ELSE 
818 

759 : 

769 PLAY“"S9M59906AF":TIME=TIME- 19899 : BF= 
g 

779 : 

789 LOCATE X,Y:PRINT C$(9)::X=X+XH:Y=Y+Y 

H:LOCATE X.Y:PRINT H$(1-(XH=- 1 )w2+Y 晶 ) : 
79 : 
896 

819 !=B 
829 D=USR( 」 ) 

839 IF DO0 THEN BL=BL- 1 : SC=SC+199:PLAY"S 
19M59904A":GOTO 858 

849 IF D<144 AND D>136 THEN 488 
859 !I=l+l:IF 』<=M THEN 828 

869 PUT BONUS 

879 T=249-INT(TIME/68 ) 

889 IF T>38 OR BF=1 THEN 919 

899 BX=RND( 1 ) *27+2:BY=RND( 1 ) 29+ 1 


MOVE BALL 


ノ Z 


999 IF VPEEK(&H1899+BX+BYx32) く >S THEN 89 


9 ELSE BF=1:LOCATE BX,BY:PRINT BO$: 
919 GOTO 399 


920 
1990 
1919 
1920 
1939 
1949 
1959 
1960 
1979 
1989 
1999 
1199 
1119 
1129 
1139 
11 49 
1159 
1169 
1179 
1189 
1199 
12009 
12160 
12209 
290909 
2919 
2929 
2939 
2940 
2959 
29660 
29709 
2989 
RROR 
2999 
21099 
2119 
2129 
2139 
2149 
2159 
2169 
2179 
2189 
2199 
2290 
2219 
2229 
2230 
22409 
2259 
2269 
227W 
22809 
2299 
2399 
23109 
2329 
2339 
23409 
2359 
2369 
39909 
3919 
3929 
3930 
3940 
3950 
3969 
"4 SC 


3979 LOCATE 14.23:PRINT USING" TIME・ 拉 柱 寺 SG 


の 仙 


3989 LOCATE 26,23:PRINT USING"& 


SET PATTERN 


RESTORE 1139 
FOR !=1 TO 19 


READ 


D 


FOR J=9 TO 7 


READ 
NEXT 
NEXT 


D$:VPOKE DX8+J,VAL("&H"+D$ ゃ ) 


VPOKE &H2919,&H89 
VPOKE &H2911.8HEV 
VPOKE &H2912.8&HS9 
VPOKE &H2913.&HA9 
RETURN 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


128.7F,7F.7F.99.F7、F7.F7,90 
139,7F,7F,7F.99.F7.F7.F7,00 
131 .99.99.99.99.99.99.99、.00 
153。3C,7E、FF。FF.FF,FF。7E,3C 
145.81.42.24.18.18、24.42.81 
129.96.98.76,.E7.FD,FB,7E,2C 
137.98.98.8B.EB.1C.29 、40 .C0 
139,9C,9C,19,.1F,19,28.C8,8C 
141.93.92.94.38.D7,D1.19.19 
143,39.39.98,F8,98.14.13,31 


′ 。 POKE MACHINE LANGUAGE 
RESTORE 2129 
FOR L=9 TO 24 


SUM= り 9 


FOR !I=@ TO 7 


READ 
POKE 
NEXT 


READ D:IF D<>SUM THEN PRINT "DATA E 
IN “ji 


NEXT 


D$:D=VAL("&H"+D$) 
&HE999+LX8+ 1 ,D:SUM=SUM+D 


2129+Lw19:STOP 


RETURN 
′ MACHINE LANGUAGE DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


3A,F8,F7,87.87,.87.11.C8.1175 
E9 , 83.5F、8A,93.57.DD,21,1976 
99.99.DD,19,DD,7E,99,B7,776 
C8,DD,66.91.DD,6E,92.E5,1986 
DD,7E,93.84.67,DD,7E,94.936 
85,.6F,CD,B5,E9 ,CD,4A,99,1133 
32.F8,F7,FE,91 ,28,71.E6.1327 
91.29,4D,E1,E5.DD,7E.93,914 
84.67,CD,B5,E9,CD,4A,99,1124 
E6,91.4F,E1.E5,DD,7E,94,1115 
85,6F,CD,B5,E9 ,CD,4A,99,1133 
E6 ,91.B9,29,12.DD,7E,93,816 
ED , 44.DD,77,.93,DD,7E,94,999 
ED,44.DD,77,.94.18,17.79,817 
E6 ,91,.29,.9A,DD,7E,93,ED,869 
44.DD,77,93,18.98.DD,7E,799 
94 ED,44.DD,77.94.E1.C9,1979 
DD,7E,91.DD,86,93,DD,77,1946 
91.DD,7E,92,DD,86.94,DD,939 
77,.92.3E,99,CD,4D,99,.E1,843 
CD , B5,E9 , 3E,83,C3, 4D,99,1975 
DD,36,99,.99.E1.CD,B5,E9,1119 
3E, 83,C3, 4D,99,EB,21,99,733 
99,7A,54,19.29.29,29,29,395 
29,.5F,19,11.99.18,19,.C9.428 


′ PUT SCREEN 
LOCATE 1.9:PRINT STRING$( 29,G$ ) 
FOR 1!=1 TO 21 
LOCATE 1,1I:PRINT G$:SPC( 27 ) 1G$? 


NEXT 


LOCATE 1.22:PRINT STRING$( 29,G$ ) : 


LOCATE 2,23:PRINT USING"SCORE : 柏 拉 提 拉 


NG$(N,H$(3) ) : 
3999 FOR !=1 TO 21 


7 ぢ ど 


& "STRI 


3199 READ D$ 

3119 FOR J=1 TO 27 

3129 LOCATE J+1 ,I:PRINT C$(VAL(MID$(D ゃ ,J 
。 1) ) ) 

3139 NEXT 

3149 NEXT 

3159 FOR K=9 TO M 

3169 POKE WRK+Kx8,1:READ X,Y 

3179 POKE WRK+Kx8+1 、X:POKE WRK+KX8+2.Y 
3189 POKE _WRK+KxX8+3,.255+(RND(1) く .4)%254 
3199 POKE _WRK+Kx8+4.255+(RND(1) く .4)x254 
3299 NEXT 

3219 READ X,Y:LOCATE X,Y:PRINT H$(9): 
3229 RETURN 

4999 ′" PATTERN DATA 

4919 DATA 222999999999999999999999222 
4929 DATA 2999999999999999999999999092 
4939 DATA 299999999999999999999999902 
4949 DATA 9999999999999999999999999090 
4959 DATA 9999111111111111111111199099 
4969 DATA 9999199999999999999999109099 
4979 DATA 9999199999999999999999190999 
4989 DATA 9999199999999999999999109999 
4999 DATA 9999199999999999999999190900 
4199 DATA 99991999999999999999991090999 
4119 DATA 9999199999999999999999190999 
4129 DATA 999919999999999999999919990 
4139 DATA 9999199999999999999999190900 
4149 DATA. 999919099999999999999991099009 
4159 DATA 99991999099999999999999109099 
4169 DATA 999919999999999999999919909 
4179 DATA 9999111111111111111111109099 
4189 DATA 999999999999999999999999999 
4199 DATA 2999999999999999999999999092 
4299 DATA 2099999999999999999999999092 
4219 DATA 222999999999999999999999222 
4229 DATA 8.7.23.15.15.2。 17,19 

4239 DATA 9999199991099999991999091909090 
4249 DATA 99991999919999999199991099099 
4259 DATA 9999199909199999991909991090099 
4269 DATA 99991999919999999199991099099 
4279 DATA 111111111111111111111111111 
4289 DATA 999919999999999999999919909 
4299 DATA 9999199919999999991999109999 
4399 DATA 999919991999999999199919999 
4319 DATA 999919991991111199199910999 
4329 DATA 9999199919912221991999109990 
4339 DATA 9999199919912221991909910999 
4349 DATA 9999199919919991991999190099 
4359 DATA 99991999199999999919991099009 
4369 DATA 9999109991999999999199910990 
4379 DATA 999919991999999099199919000 
4389 DATA 9999199919999999991999190990 
4399 DATA 111111111111111111111111111 
4499 DATA 999919999199999991999919990 
4419 DATA 999919999199999991999919900 
4429 DATA 9999199991999999919999109900 
4439 DATA 9999199991999999919999109009 
4449 DATA 2,1.28.2.17.29, 16,14 


新開 発 "自動 チェ ッ ク サ バ ゾ / 
特許 念願 中 (No141421356) な ん ちゃ っ て 
2000 行 か ら の マシ ン 語 書き 込み プロ グラ ム は 、 デ 
ー タ の 自動 的 照合 を 行い 、 デ ー タ に 誤り が ある こと 
判断 し だ 場合 に 、DATA ERROR IN XX※※ 
メ と 誤り の あつ だ 行 番号 を 指摘 し て くれ ます 。 ぐ 
れ ぐ れ も 、 こ ご の エラ ー メ ツ セ ー ジ の こと で 編集 部 
に 電話 を し な いで こく だ さい 。 ま だ 、 こ の 廊 式 を 自作 
の ゲー ム な ど で 使 いだい 場合 、 ポ ボ シ エ ッ ト な どの 、 
テク ノ ポ リス 関連 読 へ 投稿 する 際 に 限り 、 大 歓迎 
で す 。 


HUR 改訂 復刻 版 


MSXe 


この コー ナー は 1984 年 7 月 26 日 に 発売 され た 
"FOR MSX SPECIAL」 の プロ グラ ム 
と ビ キ ギ キナ ー ズ マニ ュ ア ル を 改訂 ・ 復 刻 し た も 
の で す (た だ し 、『 全 マシ ン ガ イド 。 は 除く )。 


Se 


AT 
全 マン シン ガイ ド 


ンー SE 
本 


ビギナー ズ マ ニュ アル 
MSX 周 辺 情報 ぐ 先 < _ 


ム 去年 の 夏 に 発売 二 36I5E き の (5S2ITR iP7 


Z ク グ 


@⑯ ブロ グラ ム ・ ボ : 


この ゲー ム は 、 画 面 の 中 心から いき 
な り 飛 び 出 し て くる ボー ル を 、 を その 進 
行方 向 の 直前 に "ノブ" や ^ へ "を 出し て 、 
進路 を 90 度 曲げ け 、 な ん と か カ べ に ぶっ 
か ら な いよ うに ボー ル を キー プ す る と 
いう ジン グル な ゲー ム だ 。 

と いっ て も 、 ビ ピン と こない 人 人 は 多い 
か も し れ な いけ れ ど 、 ま 、 や っ て みれ 
ば わか り ま す 。 

RUN さ せる と 、 ゲ ー ム の ポイ ント を 
説明 し た 画面 が 現れ る 。 

P( ノ ) と は 、 思 を だ だ 〈 と ボー ル の 
直前 に " ノ ” が 出現 する と いう こと 。 同 
様 に 0( ヽ ) と は 、[] を だ だ 《 と ボー ル 
の 直前 に “へ "が 出現 する と いう こと 。 

だ だ し 、 こ こ で は 大 文字 の P、0 に 
し か 反応 し な い の で 、 必 ず CAPS 
OCK キ ー を 押し て 、 ラ ンプ を つけ て お 
も 科 

カ べ に ボー ル が あ だ た だ っ だ ら ゲ ー ム オ 
ー バ ー な の は ご く ふ つう だ 
が 、 四 OIIOH… 


ざ の 


D BALL 


ッ ツ ト 』VOl.1 原作 : 児島 人 樹 


シン プル ゲー ム の 真 窒 を きわ め る 反射 神経 ゲー ム 。 
絶妙 の タイ ミン グ 、 す ば や い 指 の 動き で 、 
キミ は どこ まで バウ ンド する ボー ル を キー プ で きる か 1!7 


、 カ べ に あたる と ゲー ム オ ー バ ー。 そ れ 
“ > まで の キー ブフ 時 間 が 得点 に な る 。 リ フ 
ek レ イ の 前 に 、 気 を 沈め て お こ の 和 ね 。 


た た いて みよ う 。 ゲ ダーム は いき な り は 


・ と 単調 に 10 回 繰り 返し て も や は り ゲ 
ー ム オー バー に な っ て し まう 。 と いう の 
も 、P 還 IOIPIOI と 繰り 返し て ボー ル を キ 


じ ま る 。 多 分 、 い ちば ん 最初 の ゲー ム は 
すぐ に 失敗 し だ こと だ ろ う 。 気 を 洛 ち 
つけ て 、 再 び 挑 戦 ./ 


ー プ する の っ て か ん だ ん な ん だ よね 。 あ 、 得点 は ボー ル を キー し た 時 間 だ 。 


それ か ら 、 画 面 に 残っ て いる ~ ノ "や ^ へ NT 
も カ べ と 同じ 障害 物 に 
な っ て し まう の て 、 こ 
いつ に あたっ て も ダメ 。 

き 、 わ か っ た だ し 、 な 
ん で も いい か ら キ ー を 


で は キミ の 反射 神経 に グッ ドラ ッ ク 


。。、- うい う 終 わり 方 も ある 。 写 真 を 見 た だ け で は わか ら な い だ 
作 、 ろ うけ ど 、 こ れ は PEIOIEIOI と 10 回 繰り 返し て し まっ た ゲー ム 
オー バー な の だ 。 ど こ か で 同じ キー を 2 度 た た くべ し 。 


得点 
*OP* の キー が 押さ れ だ か どう 
か の フラ グ ブ 


ボー ル の 動 ぐ 廊 向 

ボー ル の V-RAM 上 の 位置 

ボー ル の 先 に ある キヤ ラン の 読 
み 出 し に 使用 


BOUND BALL 


1M SLRKEEN 1sMIHITH ZsUULUR 15 4。 7:iEEYUFF 
s5USUE 31M siGBUHSUE で 3M ぬ 

e 久 1F JINEEY ま = リリ THEN 全 軟 

3M CLOS IOC じ = ョ ビー ロリ ロ テ Ms ロ HGLIB 記 7M 

4 LUULRTE は MsFRINT "の H1-SCURE "USENG" 拓 韻 間 
村 拉 「 ョ HS jiFRTINT | SCORE Mi 

HH ロニ (TINT(RNH TE 1 ) % 人 で ) ま コ 1 二 1) (TENT(RNHI( 1 ) 
) メデ エー1 ) 』X メ ビニ ム らら 6 和伸 

6M_VFUEEE XFP 」 133』XG ニ XFPTHOIXX デ EVMFEEFE (CX) 

7M IF XX ESTHEN 18BM 

GM GCC= ニ G+ 1 

VM ロ ま TINEEY ま 

1MM _ TF ロロ まま = モリ リ THEN 1 人 4 以 

11M 1F ロキ モー") IFHEMN VFPUKE 5 4H/E : ロ = ロ +1 ミド 
=MgG ロ TH 13 中 

1 ど と 以 」F ロ ま = モリ P THEN UFUEE XS HEF s ビ = ミド +1 sg 
= HH ロモ ーHO EL GE 14 ぬ M 

13M SMRF_ UHF IEEEF EFH ロ デニ TIRES (RES【H け は ) 一 3 だ ) 寺 1 ) 
I 避 BN (HU) 1 た ( ピ ビ + イ ロ ) リ 9 IFHENMN 1BM 

14M LUCUATE 2SJMkPRINT らし 

1 VFUEE XFP 。 うに ョ スピ ビ デメ ビオ ロロ 

16M EGOUT 6 以 

1 7 7 ロ PF4E UMVER 

1BM LUHCRTE1 は 1 13gFRINT GRME HUERT giLUCRT 
に 人 4416kPRINI “" 11 JJNY KEY 1U PEPLAT" ェ r 
17 ワ WM 1F IMKEY ギ ニー" [HEN 179M 

<MM 1F GSC:HSG THEN HG=GSC 
1M BUT 3 中 

me 7TNTT ュ RLL1Z に 

2M LGCURTE 4 FRTNTP SS 
KAINNHSPRLINI 1 内 居 41 の )3 ドド 。。。。。 "すし MRN ま (SM2F) 
RIMT FRINT )AB(LM) YU 。。。。。 " ャ し HR ま (日 
7E) giFREINTEFRENT TRIED JGIE MER トド ナル 
ヨウ の 条 ッ n リ 

2 仁和 PRINT 1 人 (うつ) っ UP ト 
が す 11 

eo FRINT TB(S) 9 お や" 
eo6M LUERTE らら EsFRTNT 
生生" 

ご 7M LUUATE lsFRINT BTRTNB ま (3 。 せ 4 中 ) j 
<BM LOUCURTE 2 ECkFRINT STRING ま (3 。24 ゆ ) 』 
ce FUHR J= モ 1 TO SS ILHERTE で TiFRINT CHR ま 【( 
= 人 4M) jigLUCATE 31。EigFRTNT CHR ま (で 4MM) ggNEXT 
3M 六 RE) 肌 に RI 

31M RERLULUI ま TIFEL ま SETENFEU THENRTIー ソ URL (の 多 日 TI 
) BaFUREEMTU ア ERERHLU ま MFPOHEERHT 1 VAL (「 閉 昌 リ キ 
LU ま ) NEKRT SEIUTH 31M ELSE MFIHEE 多 H 人 居 1 誠人 g 呈 
shE TURIN 

3cM 内 二 販 に ドド PF FFPF 、EF FFP 。FF FFP 

Sd URI 

3 條 上 折 T 抽 EN 


BLUNTI BEALL srVsF 


1 mi 上 の 罰 


が か ト 。 ここ / 20 コト テア え 。 
は NTY KEY 1 6) 
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20 
30 


40 
50 
60 


70 


80 
90 
100 


110 


120 


130 


140 
150 


160 
180 
190 
200 
210 
230 て 260 
270^300 
310 


320-340 


初期 設定 。 310 行 で は 、 キ ャ ラク 
タ パ タ ー ン ・ デ ー タ の 定義 。 230 
行 で は 、 タ イト ル の 表示 を 行っ て 
いる 。 

スタ ー ト 前 の キー 入力 待ち 。 
変数 の 初期 設定 。 270 行 で は 、 画 
面 の 枠 を 作っ て いる 。 
得点 の 表示 。 
最初 の ボー ル の 動く 方 向 。 
ボー ル を か く 。 VPEEK で は 、 ボ 
ー ル の 進行 方 向 の キャ ラク タ を 読 
の 

何 も 障 害 物 が な けれ ば 途中 の ルー 
チン を 省 いて 180 行 へ 。 
得点 を ふやす 。 

キー 入力 。 

何 も 押 され て いな けれ ば 、 途 中 の 
ルー チン を 省 いて 140 行 へ 。 

~O" が 入力 され て いた ら ヾ "を 
表示 。 

~P” が 入力 され て いた ら 、/" を 
表示 。 

0-P-0-P… と 10 回 くり 返し て キ 
一 入 力 さ れ た か どう か チェ ッ ク 。 
得点 の 表示 。 

ボー ル の 前 に いた 位置 を スペ ー ス 
で グ リア 。 

は じ め に も どる 。 

^GAME OVER” と 表示 。 

何 か キー 入力 され る まで 待つ 。 
最高 得点 の 書き か え 。 

再 ゲ ー ム 。 

タイ トル の 表示 。 
画面 に 枠 を か く 。 

キャ ラク タバ パ ター ン ・ デ ー タ の セ 
ッ ト ル ー チ ン 。 

キヤ ング ダバ クー シュ データ 。 


7 


条 た た 


@ 「 プ ログ ラム ・ ポ エッ ツ ト 』VOL2 原作 : 伊豆 千穂 


見 れ ば わか る よう に 、 モ グラ た だ た だ き 
の ジャ マ 和 森 版 。 ジ ャ マ 森 サイ ン が 9 つ 
の マス の どこ か に 次 々 と 現れ る か ら 、 


ビ ツ ビシ だ が きる 表し で 科 し い 。 


オォ オリジナル の FM- 7 


SNS 


変数 リス ト 


|$ 
ログ の 


じゃ 


タフ 


ジャ マ 条 キヤ フ ノ 
を 表示 する 位置 
キャ ヤラ を 画面 
に 表示 する と き に 
一 時 的 に 使用 
キー 人 入力 用 
INSTR 関 数 で 得 
られ だ 値 

ジ ヤ マ 条 キ ヤラ フツ 
ダ を 表示 し て お ぐ 
時 間 

得点 

ジ ヤ マ 森 キ ヤラ 
ダ の コー ド デ ー タ 
表示 に 際 し 、 そ の 
表示 位置 を 決め る 
の に 使用 


で CK |、 了 乾 の キー は 、 は ず し て ちく こ と 。 


も し も ジャ マ 森 ファ ン が いた ら ご めん な さい 。 
今日 だ れ か に いじ め ら れ た ウサ 晴らし に 、 
どう か 、 う ちの ジャ マ 森 を 思う 存 分 た た き の め し て / 


テン キー と 9 つの マス が 対応 し て いた ie かう 
の だ けれ ど 、MSX に は テン キー が な い 
の で 、q,w,e,a,S,d,z,xyc の 9 つの キー を 
それぞれ 同じ 位置 の マス に 対応 させ て 


いる 。 ジャマ 森 サ イン が 、 右 上 上端 の マ AA 
ス に 現れ だ ら 、 す か さる ず 、[egjl の キー、 W 
ど 真 中 な ら [s| の キー が だ 。 


だ だ 、 キ ー は 小文字 だ け を うけ つけ 
る よう に な っ て いる の で 、[CAPS_LO_ 


レン イル だ Ce き 尻 、 
と を 司 時 に 押し て ブレイ 
ク さ きせ て か ら |F5 | キー が だ 。 


WM 


ジャ マ 森 サイ ン を だ だ (ご と に 、 色 
が ラン ダム に 変わ っ て 、 得 点 も 変わ る 
仕組 み に な っ て いる 。 

タイ ム が 50 ま で くる と ゲー ムネオ ー バ 


AN) 


1 PLEAR 3MkEIEFINT ZiSCREEN 1 iMIEHTH は 

2sEEY OFF 

の 四 BUBUE 3 sCOL ロ R 15 4 。7gMFOHEE 半 RE 居 1 四 』 届 

H19 kVPOEESHSM1 1 。H19 kVFUEE 和 HL 。 閉 H1 7 

コ 外 BUSUE 1 紹 和 sT1= SmX4gTIME=MgFLRY "OL.1 

Rs まま = リロ euGASHSSC" 

邊 還 RINT(RNLI( 1 ) *9) sgR1=RMOLG RE ニ TNT KR/3) 『 

ド =R+1 XR 1 6 ら す 1 ビュ イード ビル ら 6 キ コ 

以 じ ま =ーR ま =GUHGUE コジ M 

6 LOUCARTE 1 だ 25RITNT (TENME ア 介 ) 

フワ MjF EmS1 THEN 6 み M ELSE FRINT 

BM ETNEEY ま *1F 人 まま = リリ THEN mM ELSE = デ IN 

STR【(1 計 。 販 拉 ) 

9 以 1F amR THEN 1 だ 

1 中 1TF TE THEN T「=f+ キ lsEBGTH 6 

11 TsC じ キー ロ ま ESGUE 3MsGOTG 4 

12 以 FLAY "0O7L64RU saF テ INTKRND (1 ) 13)+ キ は 

1 コ 3 FOUR TEMTOU3 MPOEE 和 HG 居 1 ドキ 16gNEXT 
14 四 =BTINT(FPD LHCRTE 1.11gFREINT SsGUTU 
1 1 中 

1 中 

16 み ゆみ RESTHRE 6SRM IE ま デ モリ 

17 以 RERLU ま sTFLI ま SEPENE "THEN まま ER ます じじ HR ま 【VRR 

1( り HU TL ま ) ) sBHTO 17 


18M まま =SF ド RCE ま ( 伺 ) 
17M XX= ニ 1 8 イモ 1 : じ ま = ま sGBHSUR 33 


2 LOCATE 1 8:FR1NT "99 キキ BIME" 
21 LHCRTE 1 SFRTNT "TITME' : 

23 LHCRTE 1 ,1iFRINT "SCORE" 

2dM LHCATE 1 11 FRINT 昌 : 

24 FDR YS TO SM BTEP 6 ム 

325W LHCATE 11 。YgFRINT BTRTINB ま (19。17) : 


=G6M NEXT 
er FUR 


=9d 以 F ド 
ーッ 
3MMM NEXT 


Y= コ TDI zm 
X=1 1 
LHCATE X』YjFRTNT 


TU 29 SBTEF 6 
CHR ま て (173: 
X 。T 


31 RETURN 


きだ 尺 ] 主 1 
33 以 
は 人 店 


sFOR 
LOCATE X。Y1 
PRTNT 


Yi=Y T ロ Y+ 呈 


同和 ま (ん ます 。 つ ) 


JC 上 =jTPiaNEXT saRETURN 


36M FURE = 
MT ロ 牛 ME 
37M GLTOU 


っ RM RERLEIETI ま TFT まで と 
) BsFURT mMTH プ EREE 


MTH3 EEEEF kNEXT LUCTE 
VER" : 
37W 


3 で 1 FR1 


ENEWTHENRRV 馬 に 【 り 放 日 キ 抽 可 
本 II まま MEEEERR キ 1 。V 仙 に て" 入 財 下士 


まま) kNEXT siGHTO 3B 以 
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中 ま 記 LE 
合 四 L 
邊 は 良 
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ce 日 内 百 
3 外 LaQT 
吐 康 日 件 
ck 内 「 全 
6 訪 人 本 折 
7 上 円 「 内 


中 
「 伯 


すま 


m 刀 以 上 折 和信 
本 らら 以 T 失 本 台 
GM 遇 合 生 台 
eo1M 哲生 伯 


GE LRT 
ら は 唐 哲士 全 
ら 叶 上 谷 征 全 


fn 1LIRN 


生生 y ド に 。 と ビッ リピ PF ドド FFP 。 ド 上 。FF ドド 
加 。 褒 凡 の 六 病 績 同情 中 。 央 居 電 AI 電 和 の 
日 1 。QA _ 日 。 し 1 中 1 。 の 中 。 引 回 し 41 5 は 
Be MI 。 の 。 の 。 愉 良 中 。 中 。 6 
日 3 。 WW 。 の 中 中 7 2 
本 生還 旨 交 生 販 軸 。 居 軸 。 以 以 。 蛋 以 
CD まま 14 まり 生ん 生生 ん の: 生生 衝 り 2 生 和 り 
OMV 1 すれ 43.19。417/1 / 1 
は アッ MM 。 本 かき 
4 人 4F 4F SF SF 
9 。 昌 Bd 日 。BW 。 SM 日 届 。BMM 。 四 押 
BR BMB JMB MM 。 日 。WB 。 1 。 1 以 


BB FM 。 届 委 。 届 軸 ) 以 軸 。 仙 日 dE AB 
BC 。 四 2 。 四 4 日 。3E 。E2 。16 。1W 


BTI , 4E 。3 ビ 。 の MM 。 の 。 の の 。 以 。 以 届 。 
BE 。19。1 ゆ 。1 以 1 の 1 日 。B。B 。4 
BF 。dE 。B 。 7 ,4 じ 33 。 の の 3, 


の 日 の 。 で の 4 EE 日 昌三 呈 。95 
1 。 届 。 届 の 。 届 1 MCM4 4, 


の の 以 人 4 M2 の 1 の 。 の MM の の の 以 
3 。 軌 史 。 四 四 。 尻 中 。 日 軸 4 の 3 。F 。WW 
の 1 MM5 の 6 。1 日 。E 。 
9 1 届 で 」d 相 BMW 。 MM 。 届 の 
EN 


PO 半 WI ス 主導 中 1 BC 。B ゴ 日 4 。 

ロ 。dB BC ,BH 。 昌 人 ーー 人 を 7 の こ 93 。 94 の 5 
)BM 

66W L 折 ERNE 


BS 。B6 ,87 BB ,89 .B 末 織 
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120 て 140 


160 て 170 


180 
190 


200-230 


240310 
320^350 


360^370 
380 て 390 


410-660 


初期 設定 。 変 数 の 大 き さ を 設定 し 
た り 、 画 面 の 大 き さ を きめ て いる 。 
キャ ラク タ パ タ ー ン ・ デ ー タ の セ 
ッ ト ル ー チ ン を コー ル し て いる 。 
VPOKE で は 、&H2000 か ら の キ 
ャ ラク タ の 色 デ ー タ を 操作 し 、 キ 
ヤギ ラク タ ご と に 区 づけ げ けし て いる 。 
150 行 で 、 画 面 を つく っ て いる 。1|$ 
は 、80 行 の INSTR 関数 用 。 

次 に ジャ マ 森 キャ ラク タ を 表示 す 
る 場所 を 決定 。X, Y に は 、 画面 
上 の 実際 の アド レス が 入る 。 

B$ に ジャ マ 森 キャ ラク タ の コー 
ド デ ー タ が 入っ て いる 。 こ れ を C 
$ に 代入 し 、 320 行 で 表示 する 。 

残り 時 間 を 調べ る 。 

時 間 を 表示 。 時 間 の すす み 方 が 、 
あま り に 速い の で 、40 で 割っ て い 
る 。 

キー 入力 。 INSTR 関数 に より 、 押 
され て いる 文字 か ら 、1 て 9 ま で 
の 数 に する 。 

80 行 で 入力 され た コー ド と 、 ジ ャ 
マ 条 キャ ラク タ の 表示 され て いる 
位置 が 一 致し た と き は 、 120 行 へ 。 
60 て 100 行 の レー チン を 20 回 くり 
返す 。 

ジャ マ 条 キ ャ ラク タ を 消す た め 、 
スペ ー ス の コー ド の 入っ た $S$ を 
C$ に 代入 し て 、 320 行 を コー ル 。 
ジャ マ 森 キャ ラク タ を た た いた と 
き の 処理 。 音 を 出し 、 次 に 表示 す 
る ジャ マ 条 キャ ラク タ の 色 を か え 
る 。140 行 で 点数 を 加算 。 

B$ に ジャ マ 森 キャ ラク タ の コー 
ド を 代入 する 。 

S$ に スペ ー ス の コー ド を 代入 。 
左上 の 位置 に 、 ジ ャ マ 森 キャ ラク 
タ を 表示 。 

点数 表示 な ど に 用 いる 文字 列 な ど 
の 表示 。 

枠 を つく る 。 

画面 上 の ( X, Y) 座 標 か ら 、C$ 
に 代入 され て いる コー ド を 表示 。 
ゲー ム オ ー バ ー 処 理 。 

キャ ラク タバ パタ ー ン ・ デ ー タ を セ 
ッ ト す る 。 

キャ ラク タタ パターン ・ デ ー タ 。 


oO 


画面 上 の ^ へ "が キミ の 操作 する キャ 
ラク タ だ 。 カ ー ソ ル ・ キ ー を 押す と 、 
この キャ ラク タ が 、 あ いて いる ほう の 
口 を 前 に し て スー ッ と 進む 。 それ で 、 
画面 に 散ら ば っ て いる 黒丸 や 白 丸 を 押 
す と 、 今度 は 丸 の ほ う が ス ーッ と 動く 


- 変数 リス ト 


プレ イヤ ー の 位置 
今 ま で の プレ イヤ 
ー の 位置 
プレ イヤ ー の 動く 
変位 
プレ イヤ ー の キヤ 
ラク タコ ヨード 
キー 入力 用 
新しい プレ イヤ ゼー 
の 位置 の 内 容 
得点 

ボー ル の 克 り の 組 
数 
ボー ル の 秘 動 用 
ボー ル の 次 の 位置 
の 内 容 
音楽 デー タ 
ハイ スズ コ ノア 

キー 入力 用 


/ 月 号 原作 : 重松 津留 ニ 


プチ プチ プチ …… 1 つ ず つ 豆 を つぶ し て いく 快感 に も 似 た 、 
静か な 消滅 ケ ム 。 
スペ ー ス ・ キ ー の スト ッ パ ー が な か な か ムズ い の だ よ 。 


の ) が だ 。 ナス 侍 が る こと も あの る) 
これ を 利用 し て 、 黒 丸 は 黒丸 同士 、 再 ゲ ー ム し だ けれ ば 、[。 や め だ け 


白 丸 は 白 丸 同士 を ぶつ け よ う 。 同 じ に キ  。 れ ば 国 を 押 そ う 。 、 
ャ ラク タダ 同士 が が つか る と 、 ビ ン と い ( 
う 音 と と も に 消 減 し て し まう の だ 。 骨 

黒丸 を 消滅 きせる と ag 較 NN 
100 声 。 臼 丸 は 嘩 講 WM 
10 点 。 丸 の 移 
動 を 止め た い 
と き は 、 ス ペー 
みみ ゃ 幸二 て ブッ ャ 
ー キ が か か る 。 

違う キャ ラク タ 
同士 あわ て る と る 
こ で 終わ り 。 ま た 、 
矢 に 丸 れ あて て し ま 
う と 、 得 点 は ゼロ / 

終了 時 に タイ ム ・ ボ 
ー ナ ス あ り (だ だ し 、 


1 IEFINT 人 -Z :HB テ = 

2 BUTO47M 

3 V1=iRETURN 

4 の 1 テー32 :N= ニ HE6 RETURN 

5 V11  sN=&&H3C :RETURN 

6 V1=32 siN=&HEE RETURN 

7 1=ー1 :N=&H3E :RETURN 

BA IF STRIG(W)=ー1 THEN RETURN 
9 BHT 23 

1 MM=V:T=T+1 

11 の TBTTCE(M)+1 11 まま ITNEEY ま キ 
12 JF 1 まま mre' THEN 36M 

13 UN 1 BHSUB 3 。4 3 。3M 。6M 3 。 7 


1 人 44 届 リモ ピ +V 1 

15M VMFUEE HEM 

16 H=VFEEE KW ) 

17W 1F H= 和 HER THEN MEM 

18 ITF HHB4 ロ R H=&HEBT THEN BUSLUE だ 
19 届 1TF (1= 切 ) #(CS 王 軌 ) THEN 71 四 


2 VFDEE り 。N 
21 の BUT 1 の NN 
で 2 居り マ =V 』N1 =N 
2 VG=V 

24 の ソコ = リ G+ り 1 

2 后 連 Z=VFEEE ( ツ 2) 
2 っ 6 VFUEE V3.N1 
327 1F 7Z=&HSR THEN BS=wiVFHEE VSJ&H2R IGT 
ロ do 
2B _TF Z=wHS THEN N1=HS:VFHEE VS 」HiGBO 
TU 8W 
2 TF ZS>H THEN VFHRE V3 。&HSRiGHTH 369 
da IF Z=H THEN VPEE VG 。&HG 


31@ IF H=&HB5 THEN =G+1 IFL 仙 イ ER ま ょ CCG テ CS ie 
款 久 と "ンー ム ナオ 
ー1 :iBHTU 33 2 レー 
32 の FLY 人 まま BB= ロ +1 以 に ビ 1= じ 1ー1 ン ンス ・ 
33M LUCATE 。.2] 
34M FRINT Gi 0 
35 RETURN 5 ' 
36q FLAY 上 ま :S=B-(T/3) iTF BS THEN = 1 
37M 1F SHS THEN HG=G キャ ラク タ の 形 を 識 え た りす る 。 
38_ LUCRTE BE1 giFRINT" りす 80^90 スペ ー ス キー が 押さ れ て いる か ど 
39@ LOCATE 日 ,G1:FRINT うか 調べ 、 押 され て いな けれ ば 、 
4 LHCATE 35 で 1 :FRINTHS 2 EE 
41 LOCATE 11 7*PRINT"BAME OVER' : NE 
429 LOCATF 3 だ の sgFRINT "YSSN" : の 押さ れ た キー に 対応 する 処理 を 
4 ロキ INEEY ま ょ TIFG ま = "THEN 43W する 。 
44 の 1F (日 = リッ ツリ ) キ (日 ま = リ YY") THEN 47M 140 プレイ ヤー を 動か す 。 
45 TF (日 ま = リ ロリ )+(B ま =PNP) THEN CLS ENE 0 
46 BUT 43 
47g SCREEN 1:EEY FF:BDSUB 72swIHTH 2 | 0 し 人 や 語 に 生か ある か 、 変数 H 
4BM 「 = SG=M IM=H1 BR ENー 叶 6 170 。。 壁 の と き に は 、 プ レイ ヤー を も と 
人 49 生ま = リ "gs 日 m4WOBC "EE ま = リ 日 m 日 馬 机 ロリ に ビ ま ー リ の 位置 に も と す 。 
TMS3M で MC6 人 THG4 選 6" 180 ボー ル の と き は 、220 行 を コー ル 
ご 因 唐 日 まり よ 父 四 届 生 3m 愛 還 居 軸 C ら 入ら 作品 人 4 する 。 
本 1 罰 FR ES TH ココ 1 190 ボー ル が 1 つも な く な っ た ら 、 ゲ 
2 LHCATE EPRTNT 5 
SH 2 200 新しい プレ イヤ ー の 位置 に 、 プレ 
3 は LHC 人 TE 台 。 な 以 SPIEKLNMT "移り り イヤ ー の キャ ラク タ を が かく 。 
人 M NEXT 210 は じ め に も どる 。 
RY FUR 内 生 1 丁 日 2 久 220-240 現在 位置 を ほか の 変数 に セッ ト 。 
当ら 大 LCRTE SFRTN す り ※ り s 0 も 菩 司 の 
2 LUCATE 31。ArPRTNT Ys 6 曲 ee 
ct NEXT 270 壁 だ っ た と き は 、 ゲ ー ム オー バー 
OM LHCRTE 21 PRINT" CHRE H1 処理 へ 。 
ELUINE 「 ょ 280 スペ ー ス の と き は 、 ボ ー ル を 動か 
6 LUCATE 2 旨 21 : FRTINTHG し 、 80 行 へ 。 
61 VFHEE V,N 290 て 330 同じ 種類 の ボー ル だ っ た と き は 、 
6 5=19: ビ 1 ニノ 2 = 史 HB4 GDBLIER 6 所 2 
63 Be3W CSEG/ で ョ R=HB5 GSUE 6 所 以 2 
G4 BUTU 1 340 得点 が 、 400 点 に な っ た ら 、 ゲ ー ム 
6 呈 以 FIR =1 TO G = 
66 の U=TNT (RNEI(1) *29) + ヨ 5 ゴ =TNT (RNLI( 1 ) *19)+ | 350 。。 も と の ルー チン へ も どる 。 Ri 
1 360^370 現在 の 得点 が 、 最 高 得 点 を こし て づつ ベス メス 
67 以 F=VPEEF (&H1B+TUT TX) FNRO 才 SR 
380-460 得点 や メッ セー ジ を 表示 後 、 キ ー 6 


ら 6B 恨 上 FE EGG HEN らら 以 . 
の 和 2 が か 入 労 きれ 
ツマ 以 LHC 同上 E 介 | す | s ド に ド { NN 寺 (し ト IRR 主 ( 由 ) 9 15 *N” が 入力 され れ C〉 


し た / 


@ 消 減 ゲ ー ム の つづ き 


ば お わり 。 
7 _ NEXT iRETURN 470 画面 の 初期 設定 
271 FOR 1=g TOD 2MiBEEF NEXT sBHTD d6 480 。 数 の 設定 

) く 【 

73g READ* ょ TFD ま く >"EN"THENAD=VAL ("&H"+ ロ ま pa 
) xiFHRT=MT ロ 7 :REAT ま :VPUEEAL+T 』VaL(" 多 日 0。 2 生 際 の SN 科 05 
ま ) NEXT :GDTU73aELSE VFUEE &H2WQOT: ョ 。&H91 650 ご 700 ポー ル の セッ ト 。 変数 G で 表 さ れ 
s RE TUIRN る 個数 を セッ ト し た ら 、 も と の ル 
74 HAT 5E 。18 24 24 42 。42 。 昌 1 。 日 1 。gW ー チ ン へ も どる 。 
フ 5 HAT 2 。AA 。 王 AR 。 1 。 王 AA 。 720 ご 730 キャ ラク タバ パタ ー ン ・ デ ー タ の セ 


人 
740 ン 760 キャ ラク タ パ タ ー ン ・ デ ー タ 。 


ロホ" ト MSX が ロボ ッ ト コ ント ロー ラ に な る / 
21 パプ 衝 し い ロ ボッ ト が だ ん だ ん 登場 し て きだ ぞ ? 


MSX で 動く こ 口 ボット も 、 い ぐつ か ガ 出 そろ 
つき た だ 。 

まず ざ 、 三菱 ら 発売 され だ の が “ML-RO 
BO"。 プ リン タ 端 けら トラ ンス ミツ ダビ つ 
な げ ば ジ ヨ ョ イス ティ ッ ク で リア ルイ イム に 動 
か すこ と も プロ プラム を 組ん で 動 ひ すこ と も 
で きる 。 だ だ し \C-BOL" と いう 簡易 言語 で 
動く こよ うに な つて いる の で 三菱 以外 の MX 
だ と ロボ ポット コン トロ ー ル プロ グラ ム が 秘 妥 。 

次 に 、 長 穂 無線 ひら 発売 され だ の が ガザ パソコ 
ン ロ ボ ポッ ト ~ ウイ ザー ド “。 付 属 の カー トリ ツ 
ジ を MSX パ ソコ ン の スロ ッ ツ ト に セツ トレ て 
プロ グラ ム 、 こ れ を ロボ ツ ト に も ど レ スタ ダー 
ト さ せれ ば プロ グラ ム 通 り に 動 こ と いう つが ナ 
プ ブザー や ライ ト も コン トロ ー ル で きる 。 ま だ 、 
カー トリ ッ ジ の デー を MSX に も どす こと 
も で きる か ガ ら 、 動 ひし て ガ ら 修正 する こと も 
簡単 。 家電 の ルー ト で は 、 サ ン ヨ ー が 販売 し 
を いあ 。 

まだ 、85 年 ら 月 の ビジ ネス フエ ア で は 、 カ 
シオ か ら ベ ン を 持つ て 繧 を 画 べ “お 繧 描き 
ポ ボット も 参考 出品 され て い だ 。 

だ だ 動 こ だ け で な ご ぐ 、 絵 を 描い たり 、 陣 つ 
だ り 、 い ろ い る ろ 機 能 が ふえ る と 抹 し いね 。 


76 引 HaTRR ENL 


ワタ シノ ナマ エ ハ ML-ROBO。MSX カ 
ラノ 指令 ド オ リ ニ 動 キマ ス 。 デ モ 今 ノ 
トコ ロ 、 私 ハシ ャ ベレ マセ ン 。 ハ ヤク 
シャ ベレ ル ヨ ウニ ナリ タイ 。 


ーー ン ビ テー アー 


1 
H WWWss の 


に ー: 和 SN 9 Il 


@6 


yo 9 く 人 2 ea 


以上 用 *。 


PERFECTION 2 


@⑯ ブロ グラ ム バム ・ ポジ エッ ト 。 VOIL2 原作 : 吉川 直 


人 


5 むか し 憎 し バー フェ クシ ョ ン 。 
クン $ ゃ の 穴 は どこ に ある か な ? 土 の 穴 は どこ に ある か な ? 
カー ソル ・ キ ー さ ば き の 指 な らし に は も っ て こい / 


と いう と 、 こ 机 が カン 
障 只 タン 。 人 型 の キャ ラク 
時 タ を 、 石 側 に 並ぶ キャ 
ラク タ の 上 に 重ね る 
だ け 。 す る と 、 人 型 
急 は その キャ ラク タ に 
完全 に 化け て し まき 
ks、 キミ の カー 
和 ル ・ キ ー さ る さば き 
人 通り に 動く よう 
に な っ て いる 
の だ 。 

制限 時 間 


は 1000 ユ ニ > 
1 Se の ト 。 1000 ユ ニッ ト が 経 

_- パー フェ クシ ョ 過す る あい だ に 、 右 側 

ン 』 と いう ドッ キリ お も ちゃ が 、 む か の キャ ラク タ を 全て 左側 
し は や っ だ こと が ある ( 今 で も ある の の 容 に 入れ て し まお う 。 


の "だ が) は じ め は 、 キ ャ ラク タ 

星 型 の ブロ ッ ク は 是 型 の 穴 へ 、 十 字 。 の 数 も 少な いけ れ ど 、1 面 

8 の ブロ ッ ク は 十字 型 の 穴 へ へ … と 2* クリ ア す る ざと に 、 ど ん ど 

ズル を 一 定時 間 内 に 完成 し て 遊ぶ お も ん 数 が 増え て いく の だ 。 0 の 
ちゃ だ けど 、 ち ょ っ と スリ リン グ な の な の に 制限 時 間 は ずっ ンド 


は 、 タ イム オー パー に な る と 、 ヨ マ が と 1000 ユ ニッ ト の まま 。 
全 生 は はじけ と ん で し まう っ て と ころ 。 最初 は 、 こ ん な ゲー ム 
を そこで この パソ コン 版 『PEREFEC- な ん て 軽い 、 軽 いと い 


変数 リス ト 


面 数 


TION2」。 コ マ こ そ は じ け な いけ れ ど 、 っ て 、 な め て か か っ て メ コ リ アジ 
あの スリ ル を ディ スプ レイ で 味わお な う 。 いて も 、 3 面目 、 4 面 友 り 時 間 
っ て わけ 。 征 を た なぁ る と 、 キ ー さ ば プレ ー ヤ ゼー の 座標 


今 動い て いる コマ の キャ ヤラ フタ コー ド 
穴 の 配置 


人 型 の キャ ラク タ は キミ 。 この キャ きも 真剣 に な っ て 〈 く る 
ラク タ を カー ソル ・ キ ー で 上 下 左右 に だ の う 。 


動か し て 、 画 面 の 右 に な らん だ キャ ラ オム オー パー に な 穴 の 座標 
クタ を 、 左 の 十字 路 だ ら け の 町 並み の る と 、 画 面 が チカ チカ は め だ ゴ コマ 数 
PEEK 用 


と ころ どこ ろ に ある キャ ラク タ の " 穴 ” 。 と いろ ん な 色 に また た 
まで 持っ て いく の が ゲー ム の 目的 。 。 〈。 こ れ 、 ブ ロッ ク が 


| BOX, し INE 用 の 中 標 
どう や っ て 、 キ ャ ラク タ を 連 ぶ の か 飛び 出す 感じ な の だ 。 


ざ Z 


PERFECTION ご 


10 て 20 
30^?50 


60- 70 
90 
100 


110 
120>140 


160 
180>230 


240>270 


280 
290 て 310 


330<370 


380 


@ ざ 


初期 設定 。 

キャ ラク タコ ー ド 135 番 と 46 番 
を 、 そ れ ぞ れ 較 と プレ ー ヤ ー の 
キャ ラク タ に 書き 換え て いる 。 
変数 の 初期 化 。 

画面 設定 。BOX は 530 行 へ 、LI 
NE は 650 行 へ 、 飛ば し て いる 。 
面 数 に 従っ た コマ の 数 、 コ マ を 求 
め 、 箱 に 表示 する 。 
コマ の デー タ 。 

穴 の 位置 を 求め 、 コ マ を 穴 に 配置 
する 。 

タイ マー の セッ ト 。 

プレ ー ヤ ー を 上 下 左右 どちら に 動 


か すか 調べ 変数 P, 0Q に 代入 する 。 


プレ ー ヤ ー の 座標 に 何 が ある か 調 
べ 、 ス ペー ス な ら 290 行 へ 。 ま た 、 
今 の プレ ー ヤ ー の キャ ラク タ ・ コ 
ー ド と 一 致し た と き は 、330 行 へ 。 
田 以 外 の と きか 、 コ マ を 取っ て な 
いと き は 、380 行 へ 。 
移動 用 変数 を 初期 化し 、 400 行 へ 。 
プレ ー ヤ ー が X 座標 30 よ り 少 な い 
と き 、 400 行 へ 。 

穴 に コマ を 入れ た 時 の 処理 。 プ レ 
ー ヤ ー を 人 の キャ ラク タ に も ど し 、 
穴 を スペ ー ス クリ ア す る 。 そ の 後 
メイ ン ル ー チ ン へ も どす 。 
倉庫 に いれ ば コマ を 取る 。 そ れ 以 
外 は 、 動 か な い 。 


19 REMX※※ シ ヨ キ セッ テイ ※※※ 

29 SCREEN1:COLOR 5.15.9:WIDTH 32:DEFINTA 

-Z:VA=&H1899:VX=32:RESTORE 

39 FOR Z=9TO7:VPOKE( (135x8)+Z) ,&HFF:NEXT 
KEY OFF 

49 FOR Q=9TO7:READ Z$:VPOKE( 46x8+Q) , (VAL 
("&H"+Z$) ) :NEXT 

59 DATA 18.98.CB,3D,1C,64.46.81 

69 DEFFNR(Q)=INT(RND( 1 ) \Q ) 

79 M も =" ":C=1999: し =9:SC=9: ら 5=1 

689 REM XX※X※X※ 力 ^ メ ン ブ ツク グル ※※※※ 区 

99 CLS:LOCATE9 ,9:PRINTUSING" STAGE 間 "ちら: 

T1=1:T2=1 :T3=31:T4=23:CH=135:GOSUB 539:T 
1=28:T3=28:GOSUB 659:LOCATE28.12:PRINT" 
"sFEORI=2TO26STEP2:FORIT=3TO21STEP3 : LOCAT 

EI。II:PRINT CHR$ も (135) 1 :NEXT :NEXT: XX=26:Y= 
12 

199 RESTORE119:FORT=1TOS+4-L:READA$: LOCA 

TE 39,I+1:PRINTA$?! :NEXT 

119 DATA! 。 寺 。 も 。%。&。(。) 、= ニ へ 。\。 全 び ,$, ま , 全 ,O。 

P,。K,\。K。 ,J。※ 

129 RESTORE119:FORT=1TOS+4-L:READA$ 

139 MX=FNR(27)+1:MY=FNR(22)+2:TF VPEEK(V 

A+TMX+MYx32) く >32 THEN 139 

149 LOCATEMX ,MY:COLOR5:PRINTA$: :NEXT 

159 REM XX※X※X※X タイ マー セッ ト ※※※※※ 

169 FORIT=1TOC:P=9:Q=9 

179 REM X※X※※※※ メイ ン 区 区 

189 IN=STICK(9):Q=9:P=9 

199 IF IN=90RIN=20RIN=40RIN=6ORIN=8 THEN 
419 


299 IF IN=1 THEN Q⑳=Q- 1 

219 IF IN=3 THEN P=P+1 

229 IF IN=5 THEN Q=Q+1 

239 IF IN=7 THEN P=P-1 

249 PE=VPEEK (VA+ (X+P)+(Y+Q ) ※32 ) 

259 IF PE=32 THEN 299 

269 IF PE=ASC(M$) THEN 339:BEEP 

279 IF PE く <> 135 AND M$=". "THEN 389 
289 P=9:Q=9:GOTO 499 

299 IF X+P く <39 THEN 409 

399 IF P=1 AND M$ く >"、" THEN P=@ 

319 GOTO 499 

329 REM X※※※※※ コマ ノ シヨ リ ※※※※※ 

339 M$=" "2:LOCATEX,YIPRINT" の 5:BEEP 
349 0=0+1:IF 0=S+4 THEN SC=SC+S※199+1990 


-T:0=9:S=S+1 ELSE 499 


359 IF S MOD 18=9 THEN L=S:C=INT(CX.95 ) 
369 FORT=1TO7:BEEP: NEXT : BEEP 

379 GOTO 99 

389 IF X+P=39 THEN M$=CHR$ も (PE) ELSE P=0: 
Q=0 

399 REM X※※※※※ ダイ マー 区 

499 LOCATE XYEPRINT" の 1 

419 X=X+P:Y=Y+Q: BEEP 


429 LOCATEX ,。Y: PRINTM$: 400 ご 440 も どっ た プレ ー ヤ ー の 場所 を スペ 


439 LOCATE9,9:PRINTUSING" ノ コリ シ ~ カ ン 拉 手 ## SCO ー ス クリ アレ 、 タ イマ ー を 進め る 。 
RE 手提 持 " 3C- 1 。SC: 人 0250 
449 NEXT 1 510 て 520 SB 6 
459 REM XX※XXXX GAME OVER XX※※※※ な ら 20 行 へ 、 終 りな ら END 。 
460 BEEF 540 て 640 キャ ラク タ で 、BOX を 表示 する 
479 FOR 1=1 TO 15 ルー チン 数 1 、 3 を X 上 標 
489 J=(INT(RND( 1 )x15) ) T2 、T4 を Y 座 標 と し 座標 T1 、 T2 
499 COLOR 2,1。,J:BEEP 9 OH 内 
599 NEXT 示方 法 は 、 - 

519 LOCATE19,19:PRINT "GAME OVER" : :LOCATE 0 
5, 11:PRINT" モウ イチ ト ~=[S] : オ ワリ = LE]" : :BEEP | 
529 IF INKEY$="S"ORINKEY$="S" THEN 79 EL 志和 
SE IF INKEY$="E"ORINKEY$="e" THEN COLOR も よい が 、 そ れ よ り も 処理 が 速い 
15,4。7:KEY ON:CLS:END ELSE :GOTO 528 し 、 そ の 座標 を チェ ッ ク し や すい 
539 REM XXXXXBOX SUBXXXX の で 使用 し て いる 。 


S49 IF T3 く <T1 THEN SwAP T1.,T3 
S59 IF T4 く <T2 THEN SwAP T2,T4 
569 T5=1 

oS79 FOR YY=T2 TO T4 

589 IF YY=T4 THEN T5=1 

S599 FOR XX=T1 TO T3 STEP T5 
699 VPOKEVA+XX+ YYxVX。CH 

619 NEXT XX 

629 T5=T3-T1 

639 NEXT YY 

649 RETURN 

659 REM XX※XXXILINE SUBX※X※※※※ 
669 IF T3<T1 THEN SwAP T1.,T3 
679 IF T4<T2 THEN SwAP T2,T4 
689 T5=T4-T2:TIF T5=9 THEN799 
699 T5=(T3-T1 ) /T5 

799 FOR YY=T2 TO T4 

719 VPOKEVA+T1+YYxVX+YYxT5。CH 
729 NEXT YY 

739 RETURN 


グラ ブフ る / スク リー ン を キヤ ン バス に し て 
イ プ お 繧 ガ すき が 楽し め る ツー ル 


フイ ト ベ ン は お 得意 の サン ヨー か ガ ら は MSX 用 
グラ フィ ッ ン 拡張 コ ニ ッ ツ ト 「MPC-X」 が 発売 さ 
れ て いる 。 ご の ユニ ツ ト を 使う と 、 解 依 度 が 512 
X204 ド ツ ッ ト と な り 、1 ドッ ツ ッ ト で どの 色 指 定 も 可能 
と な る ほ が ガラ イト ベン イン ター フェ エー ス も 内 蔵 し 
て いる 。MPC-10 だ け じ ゃ な ぐ く 、 ほ か が の MSX で 
も 使え る よう に カセ ッ ト 式 イン タフ エー ス も 出 て 
いる ぞ 。 

ヤマ ハ ガ ら は 、MSX マ ウス を 使用 し て CG を 楽 
し レ しめる カー トリ ッ ツジ GAR-01 が 発売 され だ 。 マウ 
ス 使用 に より 、 曲 線 を 描く この は ずい ぶん 楽に な る 
レ 、 描 いた 繧 や 手順 を テー プ や ディ スク に 記録 し 
を た おく こ と も で きる 。 

MSX2 で スリ ー ン の 進 優 度 も 上 が ザ つ だ こと だ 
し 、 今 後 、 各 社 の ブラ フィ ッ ン 用 ソフ ト に 期 等 し だ い 。 


ど ご と 口 こ すす 9S へ びび ロ ーー 壮 ー せ CN メー! 全 


し ル / 


@「 テ フ ノ ボ リス 。 


な ん と な く 、 ゆ っ た り と 宇宙 を 遊泳 
し て いる 感じ の スペ ー ス ・ ゲ ー ム 。 
この ゲー ム は 、 カ ー ソ ル ・ キ ー で も 
ジョ イ ・ ス ティ ッ ク で も 遊べ る 。 だ だ 
し 、 ジ ョ イ ・ ス ティ ッ ク は 1 の ほう に 
接続 する こと 。 

パッ と 画面 が 現れ る 
と 、 頭 の 先 が と が っ だ 
お な じみ の タイ プ の 宇 
宙 船 が 真中 に デン 。 こ 
れ が 、 キ キミ の スペ ー ス シ 
ゲン 

カー ソル ・ キ ー ま だ は ジ 
ョ イッ *・ ス ティ ッ ク て 、 と この 
宇宙 船上 下 左右 に 動か し て 
〈 れ 。 ス ピー ド は あま り 出 な 
いけ れ ど 、 こ の ゆっ た り 感 覚 
が か ' え っ て 宇宙 空間 の ムー ド を 
上 呈し で て くれ る の だ 。 

バラ バラ ッ と あたり に 散ら ば 
っ て いる 白い 物体 は 、 小 惑星 群 。 
向こう は 、 見 えて る 男 囲 内 で は 動 
が な いけ れ ど 、 ち ょ っ と よそ に 行っ て 
も どっ て くる と 、 位 置 が 変わ っ て し ま 
っ て いる の で て と ま ど と わな いよ うに 。 

この 小惑星 群 の と ころ どこ ろ で 、 赤 


ELER 
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小惑星 の 散り ば め る 宇宙 空間 を 縦横 無尽 。 


た だ ひたすら 、 


1 ケ 10 ボ イン ト の ダイ ヤ モ ン トド を 永 め て 、 


スペ ー ス シッ プ は 泳ぎ きま わる の だ っ た 。 


〈 光っ て いる も の が 、 キ ミ の 目指 す 、 
神秘 の 赤 ダ イヤ だ 。 こ れ は 、 地 球 上 で 
最も 高価 し きれ る ブルー ダイ マヤ” よ 
り 、 さ ら に 貴重 な 宝石 だ (ホン ト か ね ) 

こい つ を 拾っ て 地球 に 帰れ ば 


も 5 う あ くせ 〈 働 か 


… と キミ は 命がけ て 拾 
い 集め よう と する の だ 
ooo 

赤 ダ イヤ を 1 つ 拾 う 
ざた に 10 ポ イント ジラ 
ス 。 親 切な こと に 、 を 
の と き の ス コア が ちゃ 
ん と 宇宙 空間 に 表示 る 
れる よう に な っ て いる 。 

も ちろ ん 小惑星 に 、 
あだると 手 ひ どい ダメ 
ー ジ を 受け る 。 1 回 、 
2 回 な ら ま だ いい けれ 


ど 、3 回 で ダウ ツン 。 ゲ 


ー ム オー バー に な っ て 


し ます う 。 で も 、 キ ギリ ギリ の と ころ て 小 
惑星 の 間 を 通り 抜け る の っ て 快感 な ん 
た よ 和 。 


ヽ な (て も すむ … 庄 計 


得点 表示 に 使用 。 ぶつ か つ 
ラク を 消す 

1 行 フ リア 用 

キャ ヤラ フタ パタ ー ン 
得点 

プレ イヤ ー の 数 ( 船 の 数 ) 
プレ イヤ ー の 位置 

スク フロール の 向 

キー 入力 用 

スプ ライ ト 用 、 プ レイ ヤー の 位置 | 
プレ イヤ ー の スプ ライ トコ ー ド 
岩 , チエ ッ フ ポイ ント 表示 位置 
プレ イヤ ー の 位置 の キヤ ラフ タデ 
ー タ の 読み 出し 用 

最高 得点 


10 
20 


30^50 


60~70 
80 て 140 


160 


170 
180 


190 
210260 


280 
300 


310^330 


画面 の 初期 化 。 
機械 語 プ ログ ラム 領域 の 確保 。 キ 


ャ ラク タ に 色 を つけ る 。 570 行 で 


は 、 機 械 語 プ ログ ラム を セッ ト し 
て いる 。 

USR 関数 の 定義 用 。 &HF300 は 、 
左右 スク ロー ル 。&HF320 は 、 下 
スク ロー ル 。&HF340 は 、 縦 1 列 
クリ ア す る 。 

得点 表示 に 使う 変数 の 定義 な ど 。 


スプ ライ ト の キャ ラク タ パ タ ー ン 
・ デ ー タ の 定義 。 

得点 の クリ ア 。 プ レイ ヤー の 数 を 
変数 に セッ ト 。 

画面 クリ ア 。 


プレ イヤ ー に 関す る 変数 の セッ ト 。 


プレ イヤ ー を 表示 。 

キー 入力 。 

上 、 下 、 左 、 右 の キー の 押さ れ た 
と き の そ れ ぞ れ の 処理 。 

岩 か 、 チ ェ ッ ク ポ イン ト の 表示 。 
プレ イヤ ー の 進む 方 向 に より 、 ス 
クロ ー ル させ る ルー チン を コー ル 。 
プレ イヤ ー が 、 何 か に ぶつ か っ た 
か どう か の 判断 。 岩 の 場合 は 、 爆 
発 。 チェ ッ ク ポ イン ト の と き は 、 
得点 表示 。 


と あえ ず 。 ハイ スコ ヨ ア 。 で も 、 ま だ まだ あま い 。 
この くら い 、 す ぐに 後 か らき た 友だち に 塗り か えら 
れ て し まう ぞ 。 キ ー を た た いて 、 再 ゲ ー ム スタ ー ト 。 


_JEWELER _ 


1 SCREEN 1 1 iCULUR 
H 3 

< CLEAR MM JHFEFF :BUSUE 
1E 。&H71 

SM HEF USR=&HF MMW 

4M LEF USR1 =HF 3 ビ M 

ce LEF USRS=HFd4M 


1G』M。MsEEY OUFF iMIHT 


7MsVFUEE 多 HEW 


6 じ ま = リ  "+CHR ま (SH1LU) +CHR ま (HH1 TU) TECHR ま (HH 
1F)+" "TECHR ま (&H1TU) +CHR ま (&H1LI) 

7 GBP ま =GFACE ま (32) 

B QA ま ="1Q38B2B7C6CFEC6B2" GBDSUE 55iSFR1T 
E ま (の ゆ ) = 内 

9 人 Q ま ="EW7B3E293E7BEQW" :BDSUE ESFRIT 
E ま (1 ) = 人 ま 

1 人 Q ま ="41637F363E141CAB" :BDGUE SsSPRI 
TE ま (2) = 人 

11 人 Q ま = リ "71E7CLI47C1EM7" :BDSUE 5 SFRI 
TE ま (3) = 人 Q ま 

12 の 人 Q ま ="994218A5RE1H4299" sBUSUB 5 SFRT 


TE ま (4 ) = 人 ま 
13 人 Q ま ="1B24429999422418" sBHGUE 5 CH=2 
4 :BHGUE 呈 ら 6 

14 は ま ="1C7EEEFF7BEF3E1C" sGBHGUE 
4 :BHSGUE 6 

1 ・ 

1 6 ら じ =W :SBF=3 

17 CLG 

1 X=1 呈 =Y=1 1 :MV=1 :BN=245 FUT SFPRITE 中 。( 
XxB。Yx 日 ) 。4 

19 避 ド Y=BTICE() UR BTICE(1) 
N MV=TNT (FEY/G+ 上 ) 

2 中 外 X1=Xx 日 :Y1=Yx 日 :M=MVー1 
21 FUT SFPRITE 。(X1 。Y1) 
HEN SN=243 ELSE BN=245 
る 2 四 UN MV BUTU 23M 。24 。 人 の 5 で 6 以 

っ 3 BX=INT (RNH (1) * ヨ 1) :SY ニ WiGUTO 2BQ 

24 GX=31 :BY=INT (RNLI( 1) *23) sBUTUSBW 

255| SX=TINT (RNLI( 1 ) *31) :SY=23 :BDTD 2BW 
らら の BX= の :BY=INT (RND( 1 ) *23) :BUTU SB 
2 IF INT(RNLI(1) *1)=1 THEN VPDEE &H1 昌 
ウ +SX+GY*32 。24 ELGE VPOEE &H1B+GX+GY* 
2 。24 晶 

3 UN MV GOUSUB 5 SA 。 后 2 
31 VP=&H18+X+Y 32 


s1F RYS>W THE 


4 MiTF SNEE4S 


CD 加 


。1W 
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32 IF (VFEEF (VF) =248)+(VFEEFF(VF+1 ) = 日) 
+(VFEEF (VF+32) =G48)+(VFEEF (VF+33) =248) TH 
EN 38M 

33 IF (VFEEF (VF) =S4)+(VPEEFE (VF+1 ) = で 4 以 ) 
+(VFEEE (VF+ ヨ 2 ) =24 罰 )+(VFEEF (VF+T33) = で 人 ) 
EN BISUE 35 

34 BOT 19M 

dE BEEFP asFLAY "ロロ 7L64EB" 

36MM SC=SC+1MsLHCATE X』YiFRINT C ま BC 

37M RETLURN ' 

38M SHUNLI 6。155sSHUNLI 7 フ 。7 SOUNTI BB 。16 SUDUN 
hh 9。16iSHUNEI 13 igSOUNE 1 居 。16』SHUNLI 1 爺 。1 
6』SUUNLI 13. 

39 以 ? 

4 FDR 1= 届 TU 1 の:gFUR = 
E 以 。(X1 .Y1) 。4。JiNEXT JJ。1 
41| FUT SFRITE M』(X1.Y1) 。4。4sFOR = TQ 
2 FUT SFRITE 以 。(X1 。Y1) 。INT(RNH(1) *13) +S 
4 sNEXT 

42 SGF=SF 一 1 :1F SFE THEN 17 [ 
43 LUCATE 9。 呈 skFRINT "XXEBRAME VER テリ" 
44 以 LODCRTE 9。BsiFRINT"YHUR SEORE" 』SC 

45 TF SCEHS THEN HS=SC 

46 届 LOCATE 9。1MiFRINT "HIBH SCHRE" 』HS 


4/7M LUCATE 41BiFRTINT"%xHIT RNY EEYX テ XP 
48M TF INEEY ま で 2 リリ THEN 4 コロ 以 

人 49 上 F TINEEY ま = リリ THEN 49M ELSE 15 

co FUEE HF3M1 41 sgFUEE HHFG3ME 。 を HEE IFOUEE 

gHF313 HEd IFUEE HFd18 HG InEUSR (MM) sgFOU 
EE HF341 31 sjREUSRE(M) sgRETURN 

s1M FUEE 系 HF3M1 。3M giFOUEE HFSGME HE3 IFGHEE 
HIF313 HEE FUEE 多 HF31H HEE REUSR (4) 』F 
EE 系 HF341 。M RUSRE (MM) saRETURN 

oe LUCRTE ME3sFREINT iRETURN 

こい 3 届 人 USR1 (MM) gaLUCERTE MaMgFRINTSBF ま 』kRETUR 
N 

コ 作 以 GOT 人 香 以 

cm R ま = リリ "saFUR エエ = 「 ロ 7 ョ HE ロキ ま = ロキ + じ HR ま (VAL【" 

gh リ +MTH ま ( 介 ま 。TT テ せ キ 1 。 ど ) ) ) siNEXT 用 モロ ま sRETUR 
N 

らら LCHXBsiFHR IT=EM TU ZsgVFHEE _ RHTT 二 。 欠 S 

じ (MIH ま (人 Q キ ま 。 エ エナ 1 。1) ) uiNEXT siRETURN 

7 = 色 HF 3 吹 以 

SB8M_ REAH U ま IF UL ま ETPUENE" THEN FUOEE RLL.VR 
LC THU+TH ま ) :aHERH+1 sGOUTO SB ELSE RETURN 
コマ MI 出向 人 だ ま MO 1B。11 2MW の MA1 1F 1 ES し 
CU 。 4 MM EE JCL 

ら 6 以 届 LERT 折 人 419 だ 3 1 FSS し じ 1 E1 で は 。MH 4 全 

MM EL 。aF 。 じ 9 。MMM 。 居 

ら 61 ウ HATA で 1 CM 1R 11 で OM 1 1 /。 と ME5 し 

Sn 。 じ 4 WO ED 。 1 

ら 6ZM UTA し LU.4U。WO E1。 2 ココ 1 の F す 9 し) 上 1 。RF 。E 
Se 0 。 MM ERA レッ 

G2W LRTR て 1 。MM。1B。11 。 と WM 、 ゆ W 。 の 1 。 和 1H 3E 。 マ < 
し 4 WM 19 。1 ウ FR し 7 

644 届 LT ENLI 


# す (34PUI NEPIRKUD 


レン 4 


移 区 次 移 称 義 


4484 
32332. 
34444 
14 まま 444 まま 。。 


1 症 提 48 
442442. 
42444. 
。+ まき きま まえ を 4 
すま きま を まき 


4 これ が キミ の 乗る ダイ ヤ 取 り ス ペー スシ ッ プ 。 


4 宇宙 に ポッ ポッ と 漂う 超 高 価 な 赤 ダ イヤ 。 


340 
350^370 


380 て 410 
420 


430 て 490 
500 


510 
920 
530 
550 
560 


う 70 て 580 
590 へ 640 


ば きじ め に も どる 。 

音 を 出し 、 得 点 を 表示 する 。 岩 を 
消す 。 

爆発 の 処理 。 音 を 出す 。 

プレ イヤ ー が まだ いる か どう か の 
チェ ッ ク 。 い な けれ ば 、 ゲー ム オ 
ー バ ー。 

ゲー ム オ ー バ ー 処 理 。 得 点 を 表示 。 
左 ス クロ ー ル 。 POKE 文 で は 、 機 
械 語 プ ログ ラム を 書き か えて いる 。 
右 ス クロ ー ル 。 

上 に スク ロー ル す る 。 

下 に スク ロー ル す る 。 
デー タ 変 換 。 

キャ ラ ツ タ パタ ー シ ・ デ ー タ の セ 
9 主 。 

機械 語 プ ログ ラム の セッ ト 。 
機械 語 プ ログ ラム 。 


キミ は 今 、 四 角 い 枠 で 囲ま れ た 異 次 
元 の 世界 に 入り こみ 、 助 け を 求め る 恋 
人 ( 珍 ) の も と へ 急い で いる 。 キ ミ の エ 
ネル ギー が な くく ならない うち に 、 


x) を 使っ て ブロ ッ ク を くずし 、 早 〈 
人 人 を 助け て や っ て 〈 人 


キミ の 今 い る 位置 は 、 右 下 の 隅 っ こ 。 


変数 リス ト 


G$0HS( 
FNX0 FNY0 


らら 1 |IC ビ K に よる キ 
ー 入 力 用 な ご 
〆EPPI の 座標 
〆EPPI の 動く 変位 
〆EPPI の 次 に 行く 
場所 の キヤ ラフ 
爆弾 の 障害 物 の 消 
し ラー ダ 

エネ ルギー 

得点 
V-RAM ア ドレ ス 
| 行 の 文字 数 
ゲー オー ソー の 
と き の 負 理 

面 数 

メ ツ セー ジ 用 

灯 弾 、 障 害 物 の 位 
置 用 


料 弾 


ポジ エッ ト 』VOI2 原作 : ザ ・ 攻 名 


愛し あう ふた り は 遠く 離れ て 、 あ ちら と こち ら 。 
ぶた り を は ば む の は 、 増 殖 する 壁 、 壁 、 壁 。 
ペケ 爆弾 に 体 あ た り し て ぶち 壊せ ,/ 


どれ で も いい か ら キ ー を だ だ く と 、 ゲ 

ー ム ・ ス ター ト だ 。 と だ た ん に 、 ブ ロッ 
和議 同時 
- ※ 型 の 

了 も ポ 
ツボ ツ と 

出現 する 。 
カー ソル 
キー ( ま 

だ は ジョ イ ・ 
ステ ディック) 

で 移動 し よ う 。 
爆弾 に 体 あ た 紅 信 3 うこ 
りす る と 、 る の の な か 、 て 、 セ 。 を ニタ ー ト e 

爆弾 の 上 な 右 還 NNN 1 

に ある ブロ ッ ク が 消 滅する 。 キ ミ 

は 一 瞬 見 を な く な っ て し まう が 、 す で 

に まだ 見 えて 〈《 る 。 こ の 爆弾 は 、 キ ミ 

ン / に ビビ 


// 
7// 上 re 0/ 
I 


ン ン マン 
の 


ンー ンー ン 
ンー ンジ 


MMN NN 
MN 1 


いや 
いい 


や 恋人 に は 無害 だ 。 
爆弾 を うま く 利 用 し て プ ブロック を く 
ず し 、 向 こう の 恋人 の (次 ペー ジ へ ) 


GUTOU 6 中 

IT=STICEK( ゆ M) 有 R STIC ド (1 ) 』X1= の saY1=X1 
IF INEEY ま ="7" THEN X=2 ョ Y=1 

IF IT=1 THEN IF YE:1 THEN Y1=ー1 

IF I=S THEN IF YE1STHEN Y1=1 

IF IT=3 THEN IF X ぶ 16THEN X1=1 

IF IT=7 THEN IF X:2 THEN X1=ー1 

PF=VPEEE ド K(V 谷 (YY+Y 1 ) \※ ソ X+ キ X+ ィ X 1 ) 

EN=EN-1 :1F F=7 THEN EN= FENー 1 siFLRY 
64BEB"sGOUTO 16M ぬ 

1 ITF F=2B THEN BEEF siFUR ド = TU 3gF=X+X 
1+LIX(E) gsQ=Y+Y1+THY(E) iLUCATE PDgFRINT " 
DasNEXT giT1=1 』「 ビ = ニョ 1T コ は =1 7 iT4 オ = モ 16 : ビ H=136 5 ロ HG 

UB 69 ゆ MiEN=EN+TS 』T= モ T+5 

11M LOCATE X。YgiFRINT | リョ aX=X+X1 s』Y=Y+Y1 
12 =FNX(15) giB=FNY(15) saLUHCATE BsFRINT 
CHR ま (1) + じ HR ま (&H47) 』 

13M =FNX(15) gsB ロ =FNY(15) saF=VFEEE ド (VMRTBXVX+ 
各 ) 

14 ゆ M IF FE7 THEN LOCRTE EiFRINT CHR ま (1 
) +CHR ま (HEC) s 


りす / 昌 


@ZEPPI の つづ き 


と ころ まで 到達 する と 1 面 ク リア だ 。 
刻 一 刻 と 減る エネ ルギー が 0 に な っ 


だ ら 、 ゲ ー ム オー バー。 キミ が 直接 ブ 


ロッ ク に あたる と 、 エ ネル ギー の 減 0 
が は や い の で 注意 し て くれ 。 

面 を どん どん クリ ア し て いく と 、 パ 
ター ン が いろ いみ 変わ っ て 出 て 〈 る 。 
も し 、 ど うし て も 次 の パタ ー ン が 見 だ 
いと いう 人 に 、 秘 密 の 裏口 を 教え よ う 。 
数 字 の [Z] キ ー を 押し て ご らん 。 す る と 


了 。 で も 、 ゲ ー ム の 最 中 は 使用 禁止 。 


10 初期 化 ル ー チ ン へ 行く 。 


20 カー ソル ・ キー より 入力 。ZEPPI 
の 変位 に 使う 変 教 を クリ ア 。 
30 も し 、「7 」 が 押さ れ て いた ら 、 無 


条件 に ゴー ルイ ン す る 。 

40 70 20 行 で 入力 され た コー ド に 対し 、 
ZEPPI の 変位 に 使う 変数 に 、 値 を 
セッ ト 。 

80 ZEPPI が 次 に 行こ うと し て いる 
位置 の キャ ラク タ を 取り 込む 。 

90 て 100 80 行 で 取り 込ん だ キャ ラク タ に 対 
し 、 そ れ が 壁 だ つた と き 、 エ ネル 
ギー を へ らし て 160 行 へ 。 そ れ が 
爆弾 だ っ た と き 、 爆 弾 の まわ り の 
障害 物 を 消す 。 こ の と き 枠 が こわ 
れ て いる と いけ な い の で 、 枠 を か 
き な お す 。 

110 今 ま で いた 場所 を 消す 。 
120 障害 物 を セッ ト す る 。 
130 て 140 爆弾 を セッ ト す る 。 


150 ゴー ル 地 点 に 、 ハ ー ト を か く 。 

160 新しく 、ZEPPI を か く 。 

170 得点 、 エ ネル キー を 表示 する 。 

180 ゴー ル 地 点 に ZEPPI が つい た な 
ら 、200 行 で 一 面 クリ ア 処 理 。 

190 エネ ルギー が な く な っ た ら 、 ゲ ダー 
ム オ ー バ ー 処 理 。 そ う で な けれ ば 
20 行 へ も どる 。 


200 て 240 一 面 ク リア 処理 。 す べ て の 面 が お 
わっ た ら 、GIVE UP 処理 。 210 ン 
230 行 で は 、 得 点 を ボー ナス エネ 
ルギー と し て 、 エ ネル ギー に 加算 。 

250^290 得点 表示 用 文字 列 の 表示 。 

300 エネ ルギー、 得 点 な どの 初期 化 。 


310 360 行 と 組合 せ で 枠 を か く 。 
320< て 350 エネ ルギー、 得 点 を 表示 。 
360 310 行 で つく られ た 箱 の 内 部 を ス 


ペー ス で うめ づつ くす 。 

370 現在 の 面 数 に 合せ て 、 形 を つく る 。 

380 ゴー ル 地 点 に ハー ト を か く 。 

390 スタ ー ト 地点 に ZEPPI を か く 。 

400 一 面 ク リア ルー チン 。 現在 の 得点 
が 、 最 高 得点 (ハイ スコ ア ) を ぬ 
いた と き 、 最 高 得点 を か きか える 。 

410 て 450 “GAME OVER" な どの 文字 を 表 
示 。 

460 て 470 先行 入力 クリ ア 。 キ ー 入 力 が ある 
まで 470 行 を くり か えす 。 

480 410 て 450 行 で 書か れ た 文字 列 を 
消去 し 、 ゲ ー ム スタ ー ト 。 


の を 


1SM LUCRTE 2。1 giFRINT CHR ま (129) 』 

16M LUCATE X。Y iPRINT CHR ま (1) +CHR ま (8 HBM) s 
17M LUCATE っ 。 4sFRKINT ENiLUCATE 2d。 日 PR1 
NT T 

18M IF VFEEE (VAT34) =16 THEN 2 

19M IF ENE1 THEN H=1 iaFUR iT=M TO 1 ゆ sFLAY" 
USLdSE" isNEXT siGUTO 42WsELSE 2 

<MM IF SG=8B THEN H=3』GUTOU 42W 

<1M LUCRTE 1341BgiFRINT "Dounu ら 5 eneFrgy" 
ceM LOUCATE 1 。2MgPRINT 1 

< つの FOUR 1= モ 1 TO 1 ゆ MAXSG siEN=EN+1 LUCATE 2S3。 
4 iREEEF FRINT EN 』iNEXT 

= 人 4 GOUTO 3SM 

ec CCLG 

<6 ゆ LOUCATE 23。 2siFRINT "ENERGY " 

と /M LUCUATE 23。 6:PRINT "BCORE “" 

2BM_ LOCATE 23。 1 ゆ ggFRINT "HI-SCORE " 

<92 LOUCATE 3。 14 siFRKINT "SBCENE 

う MM_ EN=1 WM = : ら = モタ 

31 の 1= モ 1 』T ゼ テモ ョ T コ =1 7 gsT4 オ モニ 16 iC ビ H= モ 136 』iGUSUE 6 
9MM 

JzM LOUCATE 23。 4sgFRINTEN』 

33M_ LOUCATE だ 3。 8BgFRINT Ts 

34M LOUCATE 23。12 sgFRINT HG 

J こ IM X=16gY=15giS=S+T1 iLUCATE Sd3。16gFRINT 8 
iLUCRTE Ed3。4:FRINT ENi 

うら 6 の 「1 = ジョ マテ 1 iT コモ 16 gT4 モ 15 ョ ビビ H= モ コ 32 sGBUSUE 8B 
M 

97@ ON S GOSUB 49M 1 SSM 53 4 5 。 5 
6M 7 

3BM LUCATE 1 siFPRINT CHR ま (129) 

37M LUCATE 16。1SgiFRINT CHR ま (1) +CHR ま (&H5 iM 


4 IF HSXT THEN HS=T :LUCATE < づ 。12sPFRINT 


41M LOUCRTE 1M。1BgiFRINT ロ ま ( ゆ ) 

4 だ LUCRTE 1。19siPRINT ロ ま (H) 

43M LOUCRTE 1 EMFRINT ロキ (中) 

44 ウ 2 FOUR に =M TU 2MMENEXT 

4SM LOUCRTE 1 ウ 。EE siFRINTH ま (H) 』 

46M IF INEEY ま で 2 リリ HEN 46 ゆ ぬ 

4 7 IF INEEY ま = リリ aaND STRIG(1)= 久 THEN 47M 
48M 「1=1M iT ジニ =1H iT コー ニ ビ 6 ョ 14 オ 4 モロ ョ レビ H ロ = コジ s5USUEB 
siIF H= ジ THEN EM ELSE SM 

49M 「1 = ワウ ョ 1 ジテ 1 ョ 1 コニー ツ ョ T4 モ 1 コ ュ レビ H ロ テモ 7 GUSUE 76M 
cMM 「1 ニ ビュ ョ マデ ロミ 「 コ モニ 16 giT4 オ モーB iC ビ H テ 7gGUSUE 76 以 
:RETURN 

Ss1M FOUR L=4 TU 1E STEF 4sBHSUE SMENEXTs 
RETURN 

So LEB siGUSUE S7MsL デ 9 ョ ュ GOSUE SM iRETURN 

ョ 3 Tl=B iT ジニ 7 ョ 1 コモ 16 14 モ 1 コロ ュ ビ ロミ 7 GUHSUB BS 
sT1=11 で エニ ワウ ョ T「 コ = モ 16 iT14= ニ 18 ョ に ビ H ロ モコ SsBUSUB BS s 
RETURN 

Ss4M 5BOSUE Sd3M siGUSUE コジ MsRETURN 

SS 1= ニ フュ ョ T マ =1 』1 コモ 9 ュ 1T4= 昌 gg ビ H= モ 7 GUSUE BZ iR 
ETURN 


490 て 590 各 面 ご と の 画面 を つく る 。 


こら 6 上 =13:GUSUE SS9 =1 1 igGHSUE 59 の = し =1 の si 
600 画面 の 初期 化 。 


HGSUBS9M siGUSUB SSM sRETURN 

610 ー ザ ー 関 数 の 定義 の ほか 、 画面 
7 錠 1 ニモ ジョ T マ = テ 1 si1 コ =16 iT4=155 CH= フ 7 sGOUSUB RC ee 
sT1 ニ フュ ョ ンマ テニ 1 ど ジョ 1 コ は = ニ 4 14=15s ビ H= ミ 32 s5BUDSGUB B2MsT ャ ラク タ パ タ ー ン ・ デ ー タ を セッ 
1=14』「 ジ ビニ 1 ど ョ コミ 16 iT4=15 GOUSUB B2MsFUR し =1 ト す る 。 。 


TU 3』T1= モ ジャ ョ T2 ニ 1 1 sd コ = ニ 2 し + コ =T4=14 s ヒ H= ゴ 620 配列 定義 、 配 列 セッ ト 。 
2 』BDSUB 76 み NEXT saLUCATE 日 1 の sFRINT" "』sL | 30 爆 婦 に よる 障害 物 の 消し 方 デー タ 。 


0 Ws = い 。 cs ー プ 。 ー ム の ・ 640 ご 680 メッ セー ジ デ ー タ 。 
CATE 19,19PRINT" "iT1=5sT2=6sT ヨ =7T4=B 16000 アッ セン テク oh 


ここ BMM じ H=3C giG ロ USUB B2M siT1=1 1 』T2= モ 6 iT3=13sT4= る 範囲 に 箱 を か く 。 

8 iC 上 H=dZ siBUSUB_ BZMsRETURN 760 こ 790 (T1,T2 ) 一 (T3,T4 ) を 結ぶ 線 を 
こ ウ 1 = し +1 s』T1 で モミ 1 』T コ = ニ L ヒ +1 saT4=L sC ビ H=7 sgGUGUE 7 か く 。 

ら 6M 1 1 ニモ ジュ ョ アテ し L ュ 1 コ テヒ +1 ET 人 4=L ミミ ビニ 7 sGUSUEB 76MWs 800 て 870 (T1, T2) 一 (T3, T4) で 囲ま れる 範 
RE TURN 囲 を 、 キ ャ ラク タ CH で ぬり つぶ す 。 


6 みみ _ SCREEN1 :MIDTH32 iRKEYUFF :LEFINT 人 Q-Z 0 


ら 61@ IEFFNX(R) =RNL( 1 ) *R+2 sLIEFFNY (R) =RNLI( 1 0 の の の ジ 
) \R+1 siCULUR 7。1 igVFOEE &H2WW2 。&H91 :VFUEE 
&H2W1M 。&HB1 sBHSUB BB 

62M RESTORE siHIM LIX(3) 。FIY (3) 。6 ま (3) 。H ま (3) : 
FOUR J= み TO 3gREAaLI LIX(J) 。HY(]) isNEXT :Vn=&H 
18 』VX=32 

63 み FLIATA MM。1 1 。1 ゆー1 4 

64 ロキ (WM) =STRINGB ま (17 "の ) 

65 ロロ ま (1)= リ XXX GBRME UVER XX"sH ま (1) ="REP 
LAY == RaNY EEY" 

ら 66 ロ ま (2) ニ リ %X%X※ RERLIY XXXXX"sH ま (2)="GTO | 還 還 時 本 遇 EE 
RT === ANY EEY" NN | 
ら 67 の ロキ (3)= リ XX GIVE UF XX りり =H ま (3) =H ま (1 8 

) 

6 GUTOU 255 

69 5 昌 =1 siFUR YY=T2 TH T4 NN で 
7 IF YY=T4 THEN 本 5 旨 = て ナス が の で の だ 。 e 
71 FOUR XX=T1 TU T3 STEP T5 に 吉 直 NN 
72 VFUEE VATXX+YYxVX 。 ビ H NN 

73 み NEXT 

74 呈 =T コ 3- 丁 1 』 TFT 呈 =MTHEN 征 旨 =1 
75M NEXT siRETURN 

76 呈 =T オ ーT2+1 』TF 征 旨 =1 THEN BB 以 1 
77 み 征 呈 =( 和 3- 征 1 ) /T 呈 =XX=T1 N ( 
7 FURYY=T2TUT4 :VFUFEVQA+TYYxVX+XX 。CH : XX= 靖 議 軸 | 
XX+T 中 NN 
79 み iM NEXT 』RETURN 

2 FUR XX=T1 TO T3 

1 VFPOUEE VQATT2xVX+XX 。CH siNEXT siRETURN 

2 5=1 siFHR YY=T2 TO T4 

3 IF YY=T4 THEN 和紀 = 

4 FUR XX=T1 TU T3 STEPF T55 

5 VFUEE、 Va+TXX+YYVX 。CH 

6 NEXT 

7 NEXT 』RETURN 

Ba RESTURE 9 

B9 み REAL L ま sTF まく "ENE THEN =VAL("&H 
リロ 本 ま ) 日 sFDR 1=MTOU7 siREAD L ま 』VFOEE aL+T 。Va 
し ("HH"TL ま ) asNEXT iBGUTD 9 ELSE RETURN 

9 HATA 12。38,3 。1 の 2 。FE 。1 ゆ 。38 。44 ,46 

91 ゆ LIQTA 8.。QAn QR 。Qn 。Qnn 。aR 。 人 RA 。 人 Rn 。aR 

92 HATA ENI 


) ア 3 
ゝ 箇 ク * て ズ 
OM る 1007 


クタ? 


@⑯「 テ フク ノボ リス 」%4 ・ 


1 ooo 


は 楽し く な っ て いる 。 お っ と っ と 、 ワー 


1 キー の 操作 が 変態 的 な ぶん 、 こ の ゲー ム 
プ ゲ ー ト が 閉じ ちゃ っ た 。 


ここ は 妖精 の 国 。 あ た り 一 面 に 、 金 
て て きだ 花 が る いて いる 。 キ ミ は 、 こ 
の 花 を すべ て つみ と っ て 持っ て 帰ろ う 
と する の だ が 、 こ の 花畑 は 芝 ろ し い 悪 
魔 ツ アル シーア が 守っ て いる の だ っ た 。 


)) 


10 て 20 RUN し た 直後 は つね に 同じ 乱数 
が 出 て し まう 。 そ れ を 避け る た め 
に キー 入力 待ち の 間 、 乱 数 を 使わ 
せ て 異な っ た 乱数 が 出力 され る よ 
うに する 。 

300 50 画面 ・ キ ャ ラク タ 等 の 初期 設定 。 
SCREEN 0 に し て 模 40 字 表示 で 
きる よう に する 。 

60 て 140 この デー タ は ゲー ム 中 に 使わ れ て 
いる キャ ラク タバ パター ン ・ デ ー タ 。 
スペ ー ド 以降 の キャ ラク タ を 人 間 
な どの 形 に 書き か えて 使っ て いる 。 


26 


・6 月 号 原作 : 大 場 司 


ISH FAIRY 


た っ た 2 つの キー だ け で 4 方 向 に 動く 妖精 ゲー ム 。 
悪魔 の ツル ー ア の 追 跡 を か わし つつ 、 
1 面 に 散ら ば る 金塊 を か き 集 め ろ ./ 


この ゲー ム は 、 移 動 の 方 法 が や や こ 

い 。 使用 キー は 、 カ ー ソ ル ・ キ ー の 
re 
で と どう や っ て 動く の か 0808 
IO.14 


① 右 上 へ 移動 する に は 、 
円 キー の み を 押す 。 
② 訓 下 に 移動 する に は 、 
何 に も 押さ ない 。 
③ 諾 上 に 移動 する に は 、 
[キー の み を 押す 。 
④ 諾 下 に 移動 する に は 、 
帳 と 所 を 同時 に 押す 。 
うー ん ル ん 、 な か な か や 
8 ご しい サ 衝 だ 、 ず で ぐ 
慣れ ちゃ うっ て 。 
画面 中 央 の 両側 で 閉 
じ だ り 開 いた り し て い 
る の は 、 ワ ー プ 通路 。 
ツル ー ア に 追い か けら 
れ て や ば いと き な ん か 
に 活用 し ょ う 。 ま た 、 
両側 の 壁 に あたる と 、 
キミ の 次 が 見 えがく な 
り 、 ツ ルー ア が 猛然と 
襲い か か っ て 〈 る の で て 、 
す で 壁 を 離れ る こと 。 
再 プ レイ を し だ た いと 


ROMPISH FAIRY_ 
1 CLSgFRINT 


っ の QRNLK1) kTF INEET ま = 


汎用 0 レー プ な ど ) 


き は 、[S] キ ー を 押し て て くれ 。 だ だ し 、 
大 文字 だ よ 。 


度 数 リス ト 


プレ イヤ ー の 縦横 位置 
プレ イヤ ー の 縦横 増分 
X の 縦横 位置 
欧 塊 の 数 

X の 移動 1 回 に 対し て 何 回 移動 で 
きる が 

の カウ ワン ツ 

プレ イヤ ー の 数 

プレ イヤ ー の スズ ピード 

面 

スコ ア 

ワー プ ゲ ー ト の 開 ぐ 人 確率 

ワー プ ゲ ー ト の 開 開 フ ラグ 

X の 移動 後に 践 す キ ヤ フ ン ツタ 
プレ イヤ ー の キャ ラン ツ 

X の キヤ フランツ 

右 ワ ー プ ゲー ト の 開い だ を キヤ フン 
3 

同義 じ だ キヤ フツ 

左 ワ ー プ ゲー ト の 開い た キヤ フジ 
の 

同義 じ だ キヤ フン ツヤ 

画面 XY に ある キヤ フラ フタ の アス 
キー コー ド を ラ ラ え る 関数 


mHITT RNNY EEY の 


THEN 由 


3 BCREEN iMILITH 39:FEEY OFF 
4 LIEFINTA-Z :CULHR 11 1 。4sCLS 
5 FOUR 1=3M7S TUD 3143:RERL LT ま sVFUEE 1,VR 


LC"&H"+LI ま ) giNEXT 


6 LATR QA。BB SM 。 7 2 。BB , WW 。W 
フカ HAT 3 。7B 。FC 。FC 。 7 ,3 。3 み FC 
Bm AT QA。A。4B 。3Q 。 3 。48 。 多 の 。 
9 hATA 3M。3M 。B4 。FC 。3M FC 。B4 。B4 


SCREEN 0 の 場合 PCG の デー タ 

は (800H 十 ASCIIX8) 番地 

に よっ て 求め る こと が で きる 。 
150C て 180 ゲー ム の 外 枠 を 作画 。 

190^210 得点 、 面 数 、FAIRY を 表示 。 

220 ワー プ ゲ ー ト を 開け て お く 。 

230^300 変数 の 初期 設定 。 

310 て 340 金塊 を ラン ダム に 置い て いく 。 こ 
の と き 2 つ の 人 金塊 が か さ な ら な い 
よう し て いる 。 

350-410 敵 の 出現 。 

420 て 530 キー 入力 と 人 間 の 移動 。 座標 が 画 
面 か ら と び 出 さ な い よう に 上 『 文 
判断 し て いる 。480 行 と 520 行 は ワ 
ー プ ゲー ト に 入っ た か どう か の 判 
断 で ある 。 

540~<550 ワー プ ゲ ー ト を 無事 通過 。 

560<580 も し も 金塊 を 取っ た と き は 得点 を 
増し て 、 得 点 を 画面 に 表示 。 

590 全部 の 金塊 を 手 に 入れ た か どう か 
の 判断 。 

600 スピ ー ド 調整 用 の カラ ルー ブ 。 

_ 590^620 敵 の 移動 サブ ハジ ャ ンプ 。 

630 ゲー ト の 開閉 判断 。 


1MM TLIRTR AM MM 。FB 4 で で 。 WW 。W 

11M LRT MGd4.48』3M .3M 。 4 4 。MW 

1 ど M LRTR EMB 』/7M。FB』 7 。AB SM 

13M LRTR WM JBM 。 7 MR 。 軟 届 。 区 MM 。 以 以 

14MM LRTR MM MM MR 。 7 4BM 。MM 。MM 以 。M 以 

1 IIEFFNC (CX 。Y ) =VFEEE ド エメ キ Y% 任 因 1 ) 

16 FRINT STRING ま (39 9" 韻 リ ) * 

17M FUR [=1 TU EMFPRINT " 提 "aSBFC(37) 7 韻 " 
sNEXT 

18M FRINT STRING ま (39 。 リ 韻 り ) * 

19M LUCATE 2 つ 。 の FRIMI " 箇 デ ーッ マ 。 
2 LOUCUATE 15。WiFRINMT "も の 『 ュ 

Sg1M LHCATE 4 MsFREINT に ド 人 AIRY 3 『』 
eeM GUGLIR 13 中 

ed BCOSLULIB 全 人 4MM saGU TH で る 6 以 

ご 人 4 届 X メ =1 ロ iaYE11 』XZ モ 1 XYT イ テモ 1 iCECILUUHR 11 

pci RX テ ETINT(RNEKC 1 ) 36) キ 1 gRYm1 sRETLUIRN 
ご こら HASEM sa ロビ テー98 ョ ロト デー] :F ド ロモ 6 人 4 5 ドモ オ 4 5ME ビ =1 
7 届 上 モコ ョ じ ま モ リー リョ じ MW ま ま りり 草 り 

BMM じじ 1 まま (の ) モリ 生じ 1 ま (1) = リ 卓 5C1 ま (人 2) = リロ ロリ 
9 1 ま (3) テリ 尊 に ビ 1 まま (人 4) じ ビ HR ま 【134 ) 

3MM ロロ 1 ま =C じ CHR ま (て 135) ロジ キー ビ HR ま 【 1386) 

31M ドド FUR jm1 FI 

3 TMRNEK1) GEtE sT1 =RNLI( 1 ) 1 7 キ 
3 1F FN じ (1M。11) リ =ー129 THEN 35 

34M LOUCAIE IM。I1gsFRINT " 晴 "』iNEXT 
JSLOENIE 1。1 uFRINTI SIRINMB ま (37 "XX") 
36 ゆ M FOR 上 =1 『 口 民 メ ー1 

37M FOR IM TO 1sEEEF siNEX] 

3BM LUCATE 1。1sFRINT " "ssnNEXT 
う 39 FOR IT=d7 TRX メ +1 STEPFー1 

人 4 届 FHR 二 M 由 日 1 giEEEF ENEIX 二 

上 1M LUICATE IlsPRINT " "agNEXT 
4EM LOUCRTE XYTgiIF XEM THEN FRTINT " 提 す 』 
9E PRUIMT “ " ュ 

43M YTZE(STJCOE(2D =3_ DUR STTIEE (MM) ー 人 44) % 人 で 1 ョ イデ = 
WW 宇 補 あ 

人 4 人 4 外す F ーー イト THEN Y1 

4 IF YE 届 THIEIN T= 選 

4 ら 6 ら 以 XXT(STICE(A) ES HR STTCE (MM ) = 本) まで 1 
年 / 四 は ド 表 1 上 HEEN MM 

4BM 1F 7 モミ 11 HIR イー1 THEN 5 史 

449 メニ 1 s YY イーY ア ュ s5UHTOU 76M 

こ 以 恨 1F ロロ F THEN X37 ELSE BHT 49 

1M 1TF X<38B THEN 56M ゆ 

ce 1F Y=11 HIR Y テ 1 THEN 人 所 販 

cdMM メニ ゴア ョ イモ イー イア Zs5HTO 76M 

= っ 條 届 IF ロ F THEN X=36 ELSE GT 49 

ei エ F ロ F THEN X=1 ELSGE GUTOU SG3M 

っ 6M LUCRTE X。YiN=(FNC(X 。Y) =129) 

7 Ha ロコ =HRTN : ら 5 じ ビ =5 ビ ーN siFRTINT CM まま 

BM LUCRTE ビ 。AgFRENT USTNG " 壮 韻 韻 井 韻 井 井 " ョ SC 
こ ウ MM TF HO= THEN 

6MM_ FUR j= TH FSgNEXT 

ら 61 IF ECJE ド THEN BUSUEB 68BM gi ド ビデ MM 


@ROMPISH FAIRY の つづ き 


ら 6 デ MW 
ら 6 づ 3M 
ら 644 以 
ら 6SiM 
らら 6 中 
ら 6 7/M』 
6BM 
67 
7M, 
71MW 
7 デ MM 
73MW 
7 人 4 以 
7SM 


ド に じ ビニ に ド じ +1 :TF X=RX NL Y=RY THEN 91M ぬ 
IF GFPERNLI(1)x1MM THEN 66M 

GUSUE 1MBM 

ロ F=ー1 :GUTOU 4 ジ M 

GUSUE 1M ぬ 3 

ロ F= テ MsGUTO 4 記 以 

LOUCARTE RXRYiFRINT C ま 』 
RX=RX+(RXEX) 一 (RXSX) 
RY=RYT+(RYEY) う 一 (RYETY) 

LUCRTE RX 。RY :i じ ま =CHR ま (FNC(RX RY) ) 
FRINT CC1 ま ( じ )』g ョ ビ = ミ ビ +1 TFC は 人 4 THEN に じ =M 
ココ コ 

IF X=RX 人 NL 
RETURN 

76 ゆ M FUR TI TU 1MMINEXT 

77M FUR Il1=M TU INTKRNEKC1) ※1) 
78M GUSUE 6BMIiNEXT GOTO 4 全 中 
79 以 “ 
MM CULOR BiLUCRTE 14 4E4sFRINT 
FM s 

1M GSC=SC+TME テ SIM saME=ME+1 』F 人 ロモ ロー (ME=1 以 ) 
BE LOUCATE 31 MgFRINT F 人 k 


Y=RY THEN 91M ぬ 


3 LUCURTE 1S54AEIFRINT USING 「 振 拉 韻 " ョ ME 
84M FLRY "4L16CHCLEFGGFGEFEHCCC" 

gs FOUR = モ 1 10 dMMAMENEXT 

6 1F HE/4=ME キ 44 THEN EEE+K(E1) 

ロ / ウ F ロ ニーFS キ DF ビデ ロ F+T(BF FM) ビュ ロロ デビ M 

dBM FOUR ji=2 TU 19giLOUCATE 1 IsFRINT SFRCE 


ま (36) 』 :NEXT 


9 LOCATE 14。24:FPRTINT BTRINGB ま (9。" ") 
9 BUSUE SG4 BUT ロ 31 
91 LUCATE XYiFRINT "w": 
2 SOUNL 6』1SHUNL 7。7 
93 SDUNLI 日 」16:SUHUNTI 11 。 必 
94 SUUNL 1G。 フ kBUUNL 13.。 
9 所 因 ITF じ ま テ 本 THEN じ ま = リ 
96 以 IF XE THEN ま = リ 提 " “ 
97 FUR 11=M TU 1AMENEXT ELDERTE X。Y:FRIN 


T じじ ま ョ ョ し も = モ ド 

28 Fn=F 人 ーー1 LUCRTE 31 MsFRINT Fi 

99 1F F 欠 デ 届 THFIEN 11 以 

1 _ GUSUE 呈 人 4siGOUTOU 3 は SM 

1 ぬ 1 ウ CHILOUR 9iLOUCATE 17。BsFRINTI END" 
1 1F INEEY ま =" リ SD THEN RUN _ ELSE 1MEMM 
二 二 ISM haRRSe し LUSE “ 
1M4M _ LOCATE M ゆ MilgFRINT " 草 iLUCRTE 38』11 
FRINT 『" 葬 「』 

1 LOUCRTE Ma1SIFRINT "本 iLUCRTE 38 。1S・ 
FRTINT " 重 「 

16 み RETURN 

も /M "っ okocaziox UFEN 

1MBM LOCATE Ma1liFRINT CE ま iLOCRTE 3B。11』 
FRINT ロ 1 ま 』 

1M9M LOCATE Ma1EIFRINT ロ 1 ま iLOCRTE SB 1S』 
PRINT ロキ ま 』 

11 ゆ MM _ RETURN 


クダ 


640 FAIRY の 残り の 表示 サブ ヘ へ ジャ 
ング 。 

650 て 670 ゲー ト を 開け る 。 GF が ゲー ト を 
開閉 する フラ グ 。 以後 メイ ン ル ー 
チン の くり 返し と な る 。 

680 て 750 敵 の 移動 サブ ルー チン 。 こ こ で は 
敵 が FAIRY の いる 方 向 に 移動 す 
る よう に し て いる 。740 行 で 敵 に 
つか まっ た か どう か の 判定 を し て 
いる 。 

760<780 敵 の スピ ー ド アッ プ 。 つ まり 自分 
が 左右 の 外 枠 に ぶつ か っ て いる と 
き の 処 理 。 

790 て 830 ボー ナス を 加え て 、 画面 に 表示 し 
て いる 。 1 面目 は 50 点 で 面 が 上 が 
る ご と に 50 点 ずつ ボー ナス が 増え 
で を MN《。 

840^850 音楽 を 流す 場合 、 そ の あと に ルー 
プ を 入れ て お か な けれ ば な ら な い 。 
MSX は 音楽 を 流し な が ら す ぐ 次 
の 処理 へ うつ っ て し まう た め だ 。 

860^ へ 900 次 の 面 へ 行く た め の 準 備 だ 。 変数 
の 再 設 定 を 行っ て いる 。 

910-940 爆発 の 表示 と 爆発 音 。 

950<980 爆発 の 表示 を 消し て 残り の FAIRY 
の 数 を 表示 する 。 

900 も し も FAIRY が ゼロ に な っ た ら 
1010 行 へ ジャ ンプ 。 

1000 変数 を 再 設定 し て か ら 再 スタ ー ト 。 

1010 て 1020 END を 表示 し て 終り 。S キー 

を 押す と 再 ス ター ト す る よう に 
し で いる 。 
1030 て 1060 ワー プ ゲ ー ト を 開く 。 
1070 て 1100 ワー ブ プ ゲ ー ト を 閉め る 。 


@「『 プ ログ ラム ・ A 和 コッ Vo 原作 : 河野 義宣 


oe ーーe 多 1 分 30 秒 の タイ ム ・ ト ライ アル 。 
の oo 正方 形 プ ロッ ク で ボー ル を は ね か えせ 。 
時 間 内 に すべ て の 旗 を 、 キ ミ は な ぎ た お せる か ? 


あや つっ て は ほし い 

と ころ で 、 こ の ゲー ム 、 の ん びり と 
は し て いら れ な い 。 1 分 30 秒 た つと 、 
ゲー ム オ オーパ バー に な っ そ て し まう 、。 タイ 
ム ・ ト ライ アル 方 式 な の だ 。 


(⑨ の この 限ら れ た 時 間 の な か で 、 と こま 
/ 


で 旗 を 倒せ る か が 問題 な の だ 。 ボ ー ル 


ゲー ム が スタ ー ト する と 、 赤 い ボ ポー 
ル が 飛び まわ り は じ め る 。 こ の ボー ル 
が 、 旗 に あたる と 、 得 点 に な り 、 旗 が 
消 を る の だ 。 で も 、 そ で の まま で は 、 ボ 
ー ル が 堂々 めで り し て ば か り 。 そこ で 、 
ボー ル の 進行 方 向 を 変え る に 


』 い を あや つる の は な か な か 部 し て 、1 分 
に ーー 30 秒 で も 結構 短く 感じ て し まう も の 。 
を を 実は 、 オ リ ジ ナ ル の PC-8001 版 で は 

トロ ー と 動く ボー ル の た め に 、 こ の 1 
の よう な も の で 、 こ いつ に ボー ル を 分 30 秒 が 長く 感じ られ だ の に 、MSX 版 
あて て は ね か え ぇ し 、 進 行方 向 を 変 た で は 全く 逆 。 と いう の も 、 ボ ー ル が ず 
る の だ 。 いぶ ぷん 速く な っ て し まっ た から が だ 。 

も ちろ ん 、 ボ ー ル の あたり 方 で は 人 間 っ て 、 何 か に 集中 し て 忙し くし 
ね か える 方 向 が 変わ る か ら 、 キ ミ て いる と き に は 、 時 の だ つの を 忘れ て 
の 指 き さば き で ボー ル を 意 の まま に し まう も の な の が と 。 


| ーー BALL POINT 


19 SCREEN1 :KEYOFF:WIDTH32:CLEAR 399,8HF1 
FFP:DEFUSR=&HF209 

2Z9 DEFINTA-Z:DEFSNG T:SC=9:VA=&H1899:VX= 
32:GOSUB 459:GOSUB 966 

39 X=19:Y=11:O0X=X:OY=Y:S=&H18099 

49 POKE &HF349 , &HFF:POKE &HF341 , &HFF : POK 


人 
失 社 
RI 
れれ 


PC 


カー ソル ・ キ ー ( ま 
だ た は ジョ イ ・ ス ティ ッ ク ) を 動か し て 
みる と 、 壁 の 一 部 分 の よう な ブロッ ク 


が キミ の 動か し た 方 向 に 移動 する 。 E &HF342。13 
これ が 、「 ブ ロック (すず すじ の パドル 59 POKE &HF343,19:POKE &HF347。9:POKE &HF 
2 1 さ 4 9) 9 M 
ペン し *W 69 LOCATE 19, 5:PRINT "BALL + POINT ":L 
得点 OCATE 9,13:PRINT "KEY" 
V-RAM の アド レ | 79 LOCATE 18,15:PRINT CHR$(&HEF9)+" . . .POI 
ス NT " 
1 行 の 文字 数 89 LOCATE 18,17:PRINT CHR$(&H87)+" ...MA 
ボー ル の 位置 問 半 
ボー ル の 位置 の 保 | 99 LOCATE 18,19:PRINT CHR$(&HEC)+" ...BA 
存 用 2 
キー 入力 用 199 LOCATE 19,15:PRINT "8":LOCATE 19。16: 


ボー ル の 次 の 位置 PRINT "1" 
に ある キャ ヤラ クタ 119 LOCATE 8,17:PRINT "4-?-6":LOCATE 19, 
最高 得点 19:PRINT "iP ILOCATE 19.19:PRINT "2" 


ク ク 


1 2 
139 


LOCATE 8.22:PRINT 
FOR I=9 TO 2: 征 1=8-1: 十 2= 


4=7+I:CH=&H2AIEGOSUB 869:NEXT 


149 
159 
169 


860: 


179 
16W 


IF INKEY$ く >CHR$ も (13) THEN 149 
CULSSPLANY 0/L2D 


"HIT RETURN _ KEY“ 
うー- 1 : 上 3= 


23+1 :] 


T1=9:T2=9:T3=39:T4=23:CH=&H87 : GOSUB 


GOSUB 839 
FOR !I=1 10 39 


X=RND( 1 ) xX29+1:Y=INT(RND( 1 )※1 1 )※2+1+XX 


MOD 2:TIF VPEEK(VA+TYXVX+X) く >32 THEN 1689 


61317 


LOCATE XX,Y: PRINTCHR$(&HF0J) 5 
X=OX:Y=OY:TIME=9 
FOR IT=9 TO 69:NEXT 
A=STICK(9)+STICK(1) 

IF A=1 THEN ITF Y>1 THEN Y=Y- 中 
IF A=3 THEN IF X く 29THEN 人 X=XX+ 1 
IF A=5 THEN IF Y<23THEN Y=Y+1 
IF A=7 THEN IF X>1 THEN 失 =-] 
P=VPEEK(S+X+YXVX ) 

IF P=135 OR P=249 THEN 
IF TIME>5499 THEN 359 
LOCATE OXJGYEPRINT" の 5 
LOCATE X,Y:PRINT CHR$ も (&H87 ) 
0X=X:OY=Y 

QQ=USR( 0 ) 
GOTO 219 

CLS 

LOCATE 2.5:PRINT "※※※※※※※※ 


エエ そそ そそ マエ 
379 SC=PEEK( &HEF348)x256+PEEK(&HE347 ) 


5f。17 


490 


LOCATE 7,86:PRINT 


LOCATE 19.9:PRINT "HI-SCORE = 


NEXT 


X=OX:Y=OY 


"YOUR SCORE= "55C 
399 IF HS<SC THEN HS=SC:LOCATE 7,19:PRIN 
T"YOU ARE HI-SCORE 


トン 


LOCATE 5,12:PRINT"HIT RETURN KEY 


IF INKEY$ く >CHR$S(13) THEN 429 
し し ら 

GOTO0 39 

RESTORE 479@ 


FOR 1I=9 TO 287:READ A$:POKE I+&HEF200 


> VAL("&H"+A$ も ):NEXTERETURN 


479 


DATA CD,7C,E2。 
44,F3,2A, 42, 
CD,D9 ,F2 99,32。45。 
7 し 。P2 し D、65 PFP2 し CD, DO ,F2 
99,32,46.F3,.3A,44.F3,FE 
87 ,CA , 45 ,F2、3A,.45.Pd,FE 
87,CA,45.F2.3A,46,F3,FE 
67 し 2 .45 PF2.CD。6B ,F2 し D 
9F,F2.C3,5B,F2,3A,44.Fd 
FE.、9/ し 2.50.P2 CD.66。F2 
GA 。 45 。 ド SE 67 し 2 、 DB も 2 


CD , D9 ,F2 。 99 ,32 
PF3。CD,85,P2 


GAME OVER 


20 


30 


40 一 50 


60 一 130 


140 
150 一 160 
170 一 190 
200 一 210 
220 
230 一 260 


270 


280 


290 


300 
310 
320 
330 
340 
350 一 440 
350 
360 
370 
380 一 410 
420 
430 
440 


450 一 460 


470 一 820 


初期 設定 。 機械 語 デ ー タ エリ ア 
設定 。 

変数 の 初期 化 お よび 変数 の 初期 
設定 。 460 行 で は 、 機 械 語 ブ ログ 
ラム の 書き こみ 。 800 行 で は 、 キ 
ャ ラク タ パ タ ー ン ・ デ ー タ の セ 
ツ ド 。 

1 ゲー ム ご と に 行う 必要 の ある 
変数 の 初期 化 。 

機械 語 プ ログ ラム 内 の ワー クエ 
リア の 初期 化 。 

タイ トル 画面 の 表示 。130 行 の G 

OSUB 700 で は 、 キ ャ ラク タ で 
邊 を か いて いる 。 

キー 入力 待ち 。 

ゲー ム 用 の 画面 表示 。 

旗 の 位置 を きめ 、 表 示 。 

時 間 の クリ ア 。 

キー 入力 。 

上 下 左右 の キー を 押さ れ た と き 
の それ ぞ れ の 処理 。 

プレ イヤ ー の 次 の 仕置 の キ ヤラ 
クタ を 読み 込む 。 

壁 が ボー ル だ っ た と き は 、 動 か 
な い 。 

時 間 が まだ ある か どう か 、 チ ェ 
グ 。 

今 ま で いた 位置 を クリ ア 。 

新しい 位置 に プレ イヤ ー を か く 。 

変数 の コピ ー。 

機械 語 プ ログ ラム の 呼び 出し 。 
は じ め に も どる 。 

ゲー ム オ ー バ ー 処 理 。 

画面 クリ ア 。 

^GAME OVER" と 表示 。 
得点 の 読み 出し 。 

得点 の 表示 。 

キー 入力 待ち 。 

画面 クリ ア 。 

再 ゲ ー ム スタ ー ト 。 

機械 語 プ ログ ラム の 書き こみ ル 
ー テ チン 。 

機械 語 プ ログ ラム 。 メ モリ 上 の 
&HDO000 か ら に 書き こま れる 。 


S89 DATA CD,9F,F2.2A,42.F3,F5,CD 8930 一 840 障害 物 の セッ ト 。 


599 DATA E9,F2,F1 ,CD, 7C,F2,CD, 85 9 NM 

699 DATA F2,22,42,F3,CD,D9,F2,99 | 「 
619 DATA FE,F9,CA,78.F2.C3。F9,F2 940 一 970 キャ ラク タ で 線 を か く た め の ル 
629 DATA CD,B3,F2,C9,2A,42,F3,3A ー チ ン 。 

639 DATA 49,F3,84,67,C9,3A,41,F3 9380 一 1000 キャ ラク タバ ターン ・ デ ー タ の 
649 DATA 85,6F,C9,3A,49,F3,FE,91 WP 
659 DATA CA,99,F2,3E,91,32,49,F3 9 

669 DATA C9,3E,FF,32,49,F3,C9,3A 1010 一 1040 キャ ラク タバ パタ ー ン ・ デ ー タ 。 


679 DATA 41,F3,FE,91 ,CA,AD,F2 , 3E 

689 DATA 91.,32,41,F3,C9,3E,FF , 32 

699 DATA 41.F3,C9,2A,47,F3,91 ,9A 

799 DATA 99.99,.22.47,F3,3E, 29,99 

7/19 DATA 99,.96,FF,19,FE,3E, 99,99 

729 DATA 99,C9,99,099,99,99,099,099 

739 DATA D5,CD,99,F3,99,CD, 4A,99 

749 DATA D1 ,C9,99,99,99,99,99,99 

759 DATA D5,CD,99 ,F3,99,3E, 99 ,CD 

769 DATA 4D,99,D1 ,C9,99,99,99,99 

779 DATA 3E,EC,CD , 4D,99,C9,99,99 

789 DATA 99,99,99,99,99,99,99,90 

799 DATA f5,d5,7cC,26,99,1 1 ,29,99 

899 DATA BZ,28.94.19,3D,18,F9,11 

8919 DATA 99,18,19,D1 ,F1 ,C9,99,99 

8629 DATA 99,99,99,99,99,99,99,99 

639 RESTORE 859 

649 FOR 1=1 TO 9:READ T1.T2.T3,T4:CH=&H8 
7:GOSUB 929:NEXT : RETURN 

859 DATA 1.5.8.5.8.6.8,19,.9,19,15,19,29。 
2 29.20 20.20.20.16.5.23.5。.19.26,1.26,7 
12.13。12.16.209.5.25。5 

869 T5=1:FOR YY=T2 TO T4 

879 IF YY=T4 THEN T5=1 

689 FOR XX=T1 TO T3 STEP T5 

6939 。 VPOKE VA+TXX+YYxVX,CH 

999 NEXT:T5=T3-T1 

919 NEXT:RETURN 

929 T5=T4-T2:IF T5=9THEN959 

939 T5=(T3-T1 )/T5 

り 49 XX=T1:FOR YY=T2 TO T4:VPOKE VA+T1+YY 
XVX。CH:XX=XX+T5:NEXT : RETURN 

59 YY=T2:FOR XX=T1 TO T3:VPOKE VA+YYxVX 
+XX。CH:NEXT: RETURN 

969 RESTORE 999 

979 READDS:TF D$ く > "END" THEN AD=VAL("&H" 
+D$)X8:FORI=9TO7:READD$:VPOKE AD+I ,VAL(" 
&H"+D$ ゃ ):NEXT :GOTO 979 

989 VPOKE 8&H291D, &H95 : RETURN 

999 DATA 87Z,FEF,FEF,FF ,FEF ,FE ,FF ,FF ,FF 

1999 DATA_ EC,99,78,FC,FC,FC,FC, 78,99 
1919 DATA F9,E9,F8,FC,FEF ,F8,C9,C9 ,C9 
1929 DATA END 


7 の 7 


@「 プ ログ ラム - ボ シ 


が 


な に か を ジッ こわ も し た い / を そん な 
2 もち に な る こと も ある 。 て も 、 た い 
て いそ うい うと き は 、 な に か し ら 鈴 求 


不満 が た まっ て いる も の 。 ゲ ー ム に 熱 


中 し た りす れ ば 、 い つの ま に か どこ か 
に 行っ て し まう シャ ボン 玉 な の が だ 。 
て 、 こ の ゲー ム 。 ダ イオ トル か らし て 、 
いか に も 破壊 的 。 画 面 の 無機 喚 な と こ 
ろ も 、 そ れ な り に 壊し が い が あ り そ う 。 
リタ ー ン ・ キ ー を 押せ ば 、 ゲ ー ム ・ 
スタ ー ト 。 す で に 、 ミ サイ ル が 動き は 
じ め る 。 

た だ 、 動 く と いっ て も 、 そ の まま で 
は 点々 点々 と 下 に 落ち て いく 《 だ け な の 
た 


り 下降 , 上 昇 率 
MI 義 弾 の 数 
ME 面 数 
AS,B$, ゆ | 爆発 用 
AT 爆弾 の 位置 
加速 
得点 
爆弾 の 先 の 色 


爆破 目標 の 座標 


敵 は 、 イ ジワ ル な 壁 の 向こう て 無 表情 。 
操作 の メチ ャ 難し い 誘 導 ミ サイ ル を あや つっ て 、 
壁 を 乗り こえ 、 穴 を くぐっ て 、 英 陣 を 目指 せ ./ 


の 07000 の 0002000200 の 2002000070 


いろ ん な 面 が ある けれ ど 、 こ れ は まだ や さ し い ほう 。 と いっ て も 、 そ う カ ンタ ン に は いか な 
い ぞ 。 こ の ミサ イル の 軌跡 の フル エ を 見 よ 。 絶 妙 の 指 さ ば き が 常に 要求 され て いる の だ 。 や 
っ と 、 向 こう 側 に た どり つい て 、 あ と は 上 昇 す る の み 、 と いう と き の 解 放 感 は サイ コー/ 


この ミサ イル は 、 自 然 沙 下 の 法則 に 
従っ て 、 上 か ら 下 に 加速 度 的 に 落ち よ 
うと する 傾向 が ある 。 そこで 、 キ ミ は 
スペ ー ス ・ キ ー で 、 逆 の 加速 を 与え て 
や ら ね ば な ら な いわ けが だ 。 

スペ ー ス ・ キ ー を 近 し 続 ける と 、 ミ 


サイ ル は 、 今 度 は 送 に 上 の ほう へ 加速 


度 的 に 昇っ て い 〈。 
ドッ ト の 
離れ 具合 


を 見 れ ば 、 だ いた だ たい の 加 速度 が わか る 
けれ ど 、 多 分 、 気 づい た と き に は 、 も 
う 加 速 が つき すぎ て し まっ て 、 上 の 天 
非 に ぶつ か っ て し まう の が オチ 。 と い 
みて 人 ペ 王 > ず デ 


を 押し し ぶっ て いる と 、 加 速 が 下 に つ 
きす ぎ て 、 い くら スペ ー ス ・ キ ー を 押 
し て 止め よう と し て も 、 た だ たまら すず 地面 
に 激突 、 て な こと に な っ て し まう 。 
この スペ ー ス ・ キ ー の 押し か げん が 
ゲー ム の 決め 手 な の だ 。 鋭 い 判 新 力 と 
指先 の 感覚 で 立ち 向かう し か な い 。 
目標 は 、 画 面 右端 の ラン ダム な 位置 


レス が も っ と だ まり そう だ けど 、 目 標 
に あて た と き の 快 感 は 、 そ の スト レス 
を 返し て も お つり が 《 る 〈 く らい な の が 。 
再 ゲ ー ム し だ いと き は 、 リ ター ン ・ 
キー だ けど 、 イ ラ だ っ て 何 度 も 押す と 、 
リタ ー ン ・ キ ー の 信号 が 貯金 され て 、 
何 $ も しない の に す で 再 ゲー ム に な っ て 
し まう の で 、 抜 か りな いよ うに 。 


に 現れ れる ブロ ッ ク だ 。 こ いつ に ミサ イ 
ル を あて る と 、1 面 クリ ア に な る ん だ 
7 と や や まあ 、 ク リア する の に 少な 
《 と も 3 回 は どう に も な ら な い ゲ ー ム 
展開 に な っ て し まう だ ろう な 。 
意地 悪 な 壁 や 天井 、 床 に ミサ イル を 
光 て で し まう と 、 ゼ リド ビリ りり 。 と 画 
面 に 破片 が た と た び ち っ て 、 な ん だ か スト 


10 ユー ザー 関数 の 定義 。 変数 の 初期 
設定 。 

20 クラ フィ ッ ク 画 面 に 文字 を 書く た 
め に 、 フ ァイル オー プン する 。 

30 画面 の 初期 化 。 

40 ゲー ム ス タ ー ト の キー 入力 待ち ル 
ーー デシ の 。 

50 メイ ン ル ー チ ン へ 。 

60 て 70 ゴー ル を が かく < く 。 

80<230 80 行 の ON GOSUB に より 、 各 面 

ご と の 画面 を 作成 する 。 90 て 230 

行 は 、 そ の サブ プ ル ー チ ン 。 

爆弾 の 座標 を セッ ト 後 、 画 面 作 成 

ルー チン を コー ル 。 

得点 を か く 。 

スベ ペー スキ ー が 押さ れ て いた と き 

は 、 爆 当 を 上 昇 さ せる 。 

爆弾 を 下降 させ る 。 


250 


260<280 
290 


300 


1m HEFFNA(X)=INT(RNH( 1 ) xX ) :A9 ま =CHR を (29) 

U= 。5 sMT=3 sME=1 :6=1 

2 の UPEN "BRPs" AGS 1 

3w SCREEN ゆ ウ iCULOR 15。3』SCREEN 2 

4 BUSUB 5 

5 BOTO 25 の み 

6 Yh=FNA(172)+1 iLINE (23m。Yh) -(255 。Yh+2 

g) 。15 。BF sLINE (の 。 の ) (256 。192) 。4 。B 

7 の RETURN 

BQ UN ME BOBUB 9 の 。11 の 』14 の 。17。19。21 の iRE 

TURN 

9 FDR 1=12 TO 2@4 STEP 12sLINE (1。1 の の 

) (IT+FNA( 1 の ) +5 。191 ) 。4 。BF iNEXT 

1 の FOR 1=51 TU 153 STEP 1@2iLINE (1。1) 一 
(T+FNA(1 み ) +5 。152) 。4 。BF siNEXT sRETURN 

11 み FUR 1I=38 TO 15542 STEF 38:』 ロ =FNA ( 呈 ) + 上 し 

INE (の 。1)-(256 。1+Q) 。4 。BF 

12 ゆ FUR 1I1= の m TU FNA(2)+4 sQ1=FNA(246) sLIN 

E (Q1 IT)-( ロ 1+FNA (5) +5 。 エ +G) 。3 。BF 

13g NEXT 11 。T sRETURN 

142 PAINT (1 。1) 。4:GHSUB 6 

1S FUR 1= み TO 15 の iM=FNA(2 の 5) 1 MM=FNAR( 1 

72)+1 iLTNE (MM) 一 (MT255 。M+2 ウ ) 。d 。BF 

16@ NEXT IsLINE (1) 一 (2 。29) 3。BF sLINE 
(2S ,YD) (23 。YD+2) 。3 。BF sRETURN 

17 ゆ FUR 1I= み TO 15+FNA ( 呈 ) 1 :F ロ =126 sF じ =96 

18g LINE (FH。FC) 一 (FNA(2556) 。FNA(192) ) 。4 sN 

EXT siRETURN 

19 み FOR IT= TO 75+FNA(1) =F じ =FNA (23) sFII 

=FNA (19) 

2 みみ LTNE (FC,』FH) (FC+3 。FLl+3) 。4 。BF :NE XT sR 

ETURN 

21 の の FOUR 1=551 TU 25 STEP 呈 1 』F=FNA ( 呈 ) 5 < 

LINE (1 。 ) 一 (1+FH 。192) 。4 。BF 

22 FOUR J=@ TU FNA(3) +2 ョ 』FF=FNA(182) sL INE 
( 1 。FF) 一 (T+FH 。FF+FNA ( 呈 ) + 旨 ) 。 コ 。BF 

23_ NEXT J。T RETURN 

24 ・ 

2 X=1 :Y=1 : 人 = sBDSGUB 6sGBUSUE 

26 ウ LINE (4 の ) (2 。1 の ) 。1 。BF 

27@ CULOR14 :HRRM "EBM の "iPFRINT 1。" 

RE 9 キュ 5 

28 LRAM "EBM1M 。 の "EsPRINT 揚 1 "ミサ イル ョ リョ 9 ま s 

MT -1 


SCO 


7 の ラ 


@ 爆 破 ! の つづ き 


29 の IF GTRIG(W)=ー1 THEN 人 = 人 ーーUsBUHTO 31M 300 て 350 爆弾 を 移動 させ 、 そ の 人 短 置 の 座標 
3M ゆ MV = 人 ロ + 日 を 読み と り 、 そ の 色 に より 、 壁 に 
31 の F=INT (人 Q) :X=X+1 :Y= モ Y+F iTF Y< ウ THEN Y=Q NRIEME 
J29 FOUR jm TU 2 の 3NEXT 360~370 hh の 本 爆発 
33 み P=PUINT(X 。Y) 』iIF F=1 OUR F=3 UR F=9 TH ルー チン へ 。370 行 で は 、 通 っ た あ 
EN 36M ゆ ぬ と に 点 を か く 。 
34 避 IF F=1S THEN d7M ぬ 390 て 430 一 面 ク リア し た ら 、 音 を 出し 、 得 
35 BODTOU 48M 点 を 加算 し 、 次 の 面 へ いく 。 
36 IF YX THEN Y=@iBHTO 39@ 生生 
480 ン 500 壁 な ど に ぶつ か っ た た め 、 音 を 出 
379 PSET(X,Y) 9:B ロ TO 299 SE 
8 じ 面 を も う 一 度 く り 返 す 。 
39 の の nn=192 iaGOUSUB S9MsFPLRY "OLBOUSCEFG#LIEC 510 て 570 ゲー ム オ ー バ ー 処 理 。*e* が 押さ 
GAC4LIE" れれ ば 、 ゲ ー ム エン ド 。* s* ま た 
4 の PLAY "5CEFB#F#ECBAB46C2" FNI2 IRM 
419 FOR 1= TO 12Q9:NEXT の 
42 = ら +ME テ 1 sME=ME+1 』IF ME=7 THEN ご = ら +1 リタ ー ン 。 - 
MG6 sGUSUEB 44M ゆ 590600 音 を 出す 。 
43M_ CLSsGUTOU 2SM 610 て 660 爆発 に と も な う 関 光 を 描く 。 


44 ウ PLQY "し L12R2OU5E 壮 F 半 唱 寺 内 井 F ロ RG 持 EHL 提 EE 提 AZ " 
45 ウ CULUR 』1 iCLS iLHRAM "BBM24 16" iCOLURE 5F 

RINT 提 1。 "BONUS " ミ 

46 FRINT 拉 1 。1XS6 iLRRM "EBM1SS 416" iCULUR 
3sPRINT 拉 1 "BUNUS 』 "1MXB ら 6 

47W FOUR = TO 2W ウ MsMEXTsCOLOUR 3gC じ LS iRE 

TURN 

48M QR=192 siGOUSUE SOM 

49 MT1=M エ ー1 :TF MIT=M THEN 1M 

FLAY "LBHO3ELCFECBHCHC4"sFHR IT=M TU 1 
5 sNEXT iCLS isGUTOU SSM 

1 の 人 ま ="BQAME OUVER" saFUR 1=1 TH 9:EB ま =NMTLI ま ( 
生ま 。T 。1) 

后 2 の TIRRM "EBM"+STR ま ( (で + エ ) x+BM) TS56 "sg じ COUL 
QR 1iFRINT 提 1 。B ま sNEXT 

上 3 1 ま =INEEY も 』TF 1 キ ま = リリ THEN 53M 

呈 4 IF 1 ま ="" THEN EN 

呈 品 芝 ITF 1] ま = じ HR ま (13) THEN =1 :G= の iM1I= ニ dsMNE デ = 
1 siCLS GUTOU SSM ぬ 

呈 6 ら 切 IF 1] ま = リ "5" THEN = 5 SB= ゆ iMT=d3 iME=1 iCL 
SsGUTOU 2SM 

7 BHTOU Sd 

5B DRAM"EBM4M。12W" sgFRINT#1 "PUSH ANY_ EEY 
TU START" 』Q ま =INPUT も (1) siCLS iRETURN 

9 SUUNLI 7。7sSHUNL BB。16』SHUND 6。3@ SUUN 
ii 13。MsiSUUNLI 12 9M 
6 SDUNL BB。16:sSDUNL 6。3@iSUUNEI 13 siSUU 
ND 12 49M ' 

ら 61 の FUR 1= ゆ M TO 1 ゆ W 

62M LINE (X 。Y)-(FNA(256) 。FNR(RR) ) 。FNA【4) 
+1 siFHR J= の TO 1 

63w FPSGET (FNA(256) 。FNA (RAR) ) 。FNR(4)+1 siNEX 
† J。 は 

64 み のみ じ =1 siFOUR 1= TU 2msiCHLOUR 」。CiIF C じ =1 「 
HEN C=2 sGHTU 66 ゆ 

65M じじ =1 

66 み ウ NEXT siRETURN 

67 み の RETURN 
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へ ビ どの ゲー ム は 、 自 分 で ゲー ム を 作 
る に せよ 、 ゲ ー ム で 遊ぶ に せよ 、 ノ パソ 
ュ コン 界 で は 入門 的 な も の 。 

クネクネ 進む へ ビ を 、 上 下 左 右 に あ 
や つっ て 、 な に か を 食べ て いく て …… と 
いう パタ ー ン が スタ ンダ ー ド だ ね 。 


この “SNAKEN” も 、 そ の タイ プ 


で は ある けれ ど 、 ひ と 味 違 う 。 

み カー ジル 才 ー (また だ は ジョ イマ ス 
ティ ッ ク ) で 、 上 下 左 右 に へ ビ を あや 
つる の は 同じ だ けど 、 ま ず 第 1 に 敵 が 
いる 。 敵 は 、 at mark(@) の 形 を し 
た 凶 禁 な カエ ル だ 。 こ いつ に チョ コチ 
ョ コッ と 寄ら れ て 、 ガ ブリ と 食わ れ た だ 
ら 。 ゲ ー ム オー バー に な る 。 

へ ビ の ほう も 、 そ の た だ め に 防衛 本 能 
が 発 達 し て 、 ワ ー プ が で きる よう に な 
っ て いる 。 キー ボー ド な ら 、 ス ペー ス 
・ キ ー。 ジョ イ ・ ス ティ イッ ク な ら 、 ト 
リガ ー が ワー プ ・ ボ タン に な っ て いる 
の だ 。 だ た だ し 、 ワ ー プ "を する と へ ぜ の 


体 が 1 個 分 長く な っ て 、 動 ー 柚 凍 


も は や 、 伝 統 と いう より 伝説 と 化し た へ ヘビ ゲ ー ム 。 
と ころ で 、 こ の へ ビ の 好物 は な ん と ダイ ヤ モ ン ド 。 
必殺 超 能 力 ワ ー プ も で き る 、 不思議 な スネ ー 君 。 


き に くく な る の で 、 そ の つも り で 。 

へ ビ は 、 カ べ で に あたっ て も も ちろ ん 
ゲー ム ・ オ ー ノ パー に な っ て し まう 層 れ 
と ど 、 自 分 の 体 に あたっ て も だ め な の が 
あま り 、 体 が 長く な る と ちょ っ し と 方向 
転換 し たく て も 、 自 分 の 体 が ジャ マ で 
や り に くく な っ て し まう 。 

ワー プ す る っ て 、 い っ た いと どこ へ … 
… な ん て 疑問 を 抱い た キミ は 鋭い 。 い 
ぃ い 質問 だ ね 。 実 は い 、 ど こ に ワー プ ' し て 
し まう の か わか ら な い の だ よ 。 

も し か し た ら 、 カ エル の 目 の 前 か も 
し れ な いし 、 壁 の 直前 か も し れ な いし 
99 。 で も 、 カ エル に を その まま 食わ れ 
る より も 、 勇 気 を 出し て ワー プ し た だ は ほ 
うがい いん じゃ な いか と 思う 。 

と ころ で 、 1 面 ク リ 
ア は 、 画 面 上 の ダイ マヤ 
を 全部 取っ た と き 。 面 
が あがる ご と に 、 だ ん 
だ ん 壁 が 複雑 に な っ て 
《 る ぞ 。 


スズ エ こ OO こと こと アメ ー ト NO の 
ーー ー OO < 


ー タ の 
ー さ 
ー 
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を うそ う 、 う まく 〈 壁 を 利用 すれ ば 、 
カエ ル が 追い か け て こ な く な る よう な 
安全 地 常 が ある 。 で も 、 時 間 制 限 が あ 
る の で 、 安 全 だ から と いっ て あま り ツ ウ 
は 必 せ し な いよ うに し よう 。 


変数 リス ト 


大 1 ア 
画面 の 呼び だ し 
面 数 
残り ツタ イハ 
ヘビ の 座標 
梶 動 用 変数 
ヘビ の 長 さ 
現在 の 長 さ 
ワー プ 用 

取 つ だ ダイ ヤ の 数 
ダイ や ヤ 数 


| カエ ル の 中 


カエ ル 秘 動 用 
カエ ル の 数 
ご の カエ ル を 動 ひ すか 


| BOXJLINE の サブ ルー チン 用 


上 下 を 入 力 用 
VRAM 先頭 番地 
PEEK 用 


7 の 2 


160 て 170 


180 て 190 


200 て 210 


220230 


240-270 


280-290 


7 の 6 


各 変 数 の 初期 化 。 

キャ ラク タ ・ コ ー ド 135 を 、 較 に 
書き 換え て いる 。 

へ ビ の 、 キ ャ ラク タ の 設定 。 グ ラ 
フィ ッ ク ・ キ ャ ラク タ の X を へ ヘビ 
の キャ ラク タ に 変更 。 
配列 の 定義 。 

初期 画面 の 作成 。 

カエ ル の 数 の カウ ンタ 。 

へ ビ 移 動 、 お よび ワー プ の た め の 
キー 入力 。 ワ ー プ を する な ら 800 行 
人 へ 。 

キー 入力 に 従っ た 処理 。 

ヘビ の 頭 の 座標 に ある キャ ラク タ 
を 調べ 、 カ ベ べ ま た は カエ ル の 場合 
は 760 行 へ 、 ダ イヤ の 場合 は 410 行 
へ 飛ぶ 。 

へ ヘビ の 長 さ を 調べ 、 そ の 長 さ 分 の 
表示 。 

へ ヘビ の X 座 標 に 従っ て 、 カ エル の 
移動 を 行う 。 そ の と き 、 カ エル の 
座標 と ヘビ の 座標 が 一 致し た と き 
は 、760 行 へ 。 ま た 、 カ べ の 座標 、 ダ 
イヤ の 座標 と 一 致し た と き は 、280 
行 へ 。 

カエ ル の 元 の 位置 を スペ ー ス クリ 
ア し た 後に 、 次 の 座標 に カエ ル を 
表示 。 


1 の SCREEN1 。 ゆ 。 の iMIHTH 32 IEFTNTAー-Z kCLS i ゴ = 
5 s ロ =1 si ロ = 1 : ソ X=&H1 8 の : ビ H= ニ ゴジ 

2 FOURZ=QTO7』VPOKE((13SxB)+Z) 。&HFFsNEXTsi 
KEY OFF 

3 の FUR Z=@TOU7 siREADC ま 』VPUKE (2BxB+Z ) 。 (VaL ( 
!&&H リ キビ ま ) ) saNEXT 

4 みみ HaQTA 3dC 。 7 。6 ゆ の 。18 。 の CC 。 ゆ 6 3 じ 

ウ HIMC(S ウ MM) 。D(S ゆ WM) 。H(4) 。K( 人 す ) 

ら 6 REM 天天 用 メー サフ セイ 半 甘 半 療 某 

7 の COLUR7 。4。11 iLUCATES24 2 sgFRINT | 汗 半 半 基 基 基 
"saTaE(24) 』" BNAEEN "iTRB(24) リ 共著 基 
TAB(24) | ※ / "saTABR( 人 2 人 44) |) Cf 
AB(24) 』 半 基 PsTAE(S4) | 作 共 天 

BB 。 LOUCATE 25。1MsPRINT "SCOURE " 

9 LOUCATE 25。14 sgFRINT リ ダー ャ ヤリ 

12! LUCATE25。16sPRINTTRE(E4) 』" TIME= 
11 LOUCATE25 。21 sFRINT "SCENE" ョ iLOCRTE ご 8 
ecNPRINT 1 

12 1=1 sT2=W Td= ニ 23 』T4=2 コ 』 り 人 n= 和 日 1 BMM s ソ X メ ニコ 
2 つ 2 ょ じ H=135 sGBUSUB BBM 

13M GOUSUES9M sGUSUE 71MW 

1 人 4W REM 天光 の ヒビ ーー ゴト の 半 基 区 基 基 
15M FUHRN=1 TUG :EEEF 

16 み の IT=GTICE(M) OR STICEK1) 
17M IF STRIG() ロ R STRTIGK(1) 
s GUTOU 3 中 

18 1F1=7 NLI X:1 THEN = ニー1 :iE=M ELSE IF 
1=3 AND _ X22 THIEN =1 :E デ MM 

19 IFT=1ANLY:1THENR= ニ = = ロビ モー1ELSETFT=SRNLIY 
2 つ 2THENR= ニ ME テ =1 

2 以 F=VFEEF (HH1B す (X+ 仙 ) 二 (Y+TEB) ※ づ 3 どど) 

っ 1 以 1F PF=64 OR P=2B THEN 76 み ELSE ITF F ド =1 
355 THEN 76 ELSGE ITF F=131 THEN GUSUE41M 
つの 届 X= ニ X+ 人 sgY=Y+TB iLUCATEX 。Y aiFRTNT PX" 

2 つ 23 E= ニ E+1 sC(E)=XsLI(E)=Y iTFF く KJTHENF テ =F+1 si ロ 


THENGUSUEBMM 


LM UTU25MELSEIF VPEEE(&H18BMMTC(Eー ゴ ) +EI( ビ ー ゴ ) ※ 


32) =131THEN2SELSE iLHCATEC(EーJ) 。E(EーJ) siF 

RINT" 98 

24M REM 半 革 共有 力 工 引 イト 2 甘美 共 半 基 

2 呈 し =SBGBN(XーH(N) ) siM=SBN(YーE(N) ) iTFL=MTHE 
N2 7 

26 の F=VFEEE (&H18B+(H(N)+L) TE (N) 3) sTF 

P=13 品 HR F=131 THEN BHTHU27M ELSE IF F=ZB 
THEN 76w ELSE M=MiGUTUBM 

2 フ P=VFEEE (HH1BM+TH(N) (EE(N) +M) だ) 1F 
F=13 紀 DR F=131 THEN 上 =ーL iM モーM siBUTUEBM EL 

GE : IFP=2B THEN 76 み ELSE し = 


2B LDCATEH(N) 』K(N) :FRINT" " 
_29 H(N) =H(N) +L EK(N) =E (N) +M gaLUCATEH(N) 。 ド 


(N) giFRINTT@" 

3 REM 基 グリ イヤ トヨ リウ 疾 半 苦 半 基 

31 み =INT(RNLI( 1 ) *4) iTFU= ニ THEN32QELSE36@W 
32m Th=Th+1 :IFTD>1THEN36 ら Mg 


310^340 


350 
360^390 


400-420 


430-440 


450 


460 


470^500 


520^ へ 540 


550^570 


580 


990^620 


630^650 


U 


ee 


Ao 


YU 


ダイ ヤ の 数 及び 座標 を 乱数 で 求め 
る 。 も し その 座標 に 何 か 表示 され 
て いる と き は 、 座標 を 求め 直し 、 


タイ ヤ の 数 が 10 を 越え た と き に は 、 


ダイ ヤ は 表示 し な い 。 
ダイ ヤ の 表示 。 

TIME の 表示 。TIME が 0 の と き は 、 
50 行 べ へ 。 ニ こま で で 、 メ イン プ 日 
グラ ム は 終り 。150 行 へ も どる 。 
ダイ ヤ を 取っ た 時 の 処理 。 ダ イヤ 
の 取っ た 数 と 、 ス コア の 表示 。 
取っ た ダイ ヤ の 数 が 、10 に な っ た 
と き ボ ー ナ ス 点 を 追加 し 、 表 示 。 
画面 数 が 8 面 、 お よび カエ ル の 数 
が 5 に な っ た と き 、 最初 の 面 に 戻 
る 。 

面 数 の 表示 。 

590 行 か ら 620 行 の 処理 と 合わ せ て 
第 3 面 を 構成 。 

630 行か ら 650 行 の 処理 と 合わ せ 
て 第 5 面 を 構成 。 

660 行 か ら 690 行 の 処理 と 合わ せ て 
第 7 面 を 構成 。 

すべ て の 面 を クリ ア し た 後 、FOR 
文 で WAIT を か け て 、 メ イン ルー 
チン に 戻し て いる 。 

1 面 、2 面 、3 面 の た め の 、 基 本 
の 表示 パタ ー ン 。 

4 面 、5 面 の た め の 、 基本 表示 パ 


ダー シン 。 


に 5 内 1 
NN 内 


U 


V=INT (RND( 1 ) *22) +2 =INT (RND (1 ) *22) + 


IFVPEEE(&H18Q+V+MX32) >32THEN3 コ 3 の 
LOCATEV 。M iPRINT "名 り 

T=T-1 iLUCATE27。17sFRINTUSTNG "林間 井 " ョ T 
IFT く <=MTHEN76M ゆ 

NEXT 

BUTH15M 

REM %%% ダグ イヤ ラ トリ 天天 基 

E+ iLUCRTEEB 。1 コ giPRINTUSING" 揚 欄 " ョ 
ら = ロ +1 siLOCATE26 。1 1 iPRTNTUS TNG "欄間 提 韻 " 』 


35 の 
36 

37 
38 の 

39M 
4 の Q 

41 ロ 
42 の 

に 
43 IF ロ =1THENFURN=TU2 :BEEF :NEXT :BUTD4 

42ELSERETURN 

44@ SB=S+T ii=i+1 iLDCATE 26。11 iPRINTUSINB" 

提 神 井 提 "= 

45 R=R+1 : IFR=BTHENR= = は =B+1 :TF = THEN 
G=1 

46@ ウ LUCATE27 。22 FRINT UBTINGB" 提 揚 "sLI 

447 REM 区 メー セリ テイ GUER 

4 LUCATE 28。15:FRINT" "sgFUR 1=2TU22jF 

DR M=2TU22 iLUCATE M。I iPRINT" "NEXT giNEXT 
49 IF R>= NL RX=2 THEN BUSUE 59M 

5 IF R=1 THEN FUR U=7 TU 16 iLUEATE U。 
UPFRINT CHR ま (13 后 ) :NEXT sFDR U=7TOU 16:LOUCA 
TE U,23-U FRINTCHR ま (13 互 ) iNEXT 

51W ITF R=2 THEN T1=11 :TS=2 sT ヨ =1 1 :T4=21 
H=135 iBDSUB11 iT1=12』T つ = Td=12 =T4=21 
H=135 GBDSUE11MiFUR U=3TD2 LODCATE U。11 : 
FRINTCHR ま (13 呈 ) :NEXT 

2 1F R>=3 NLR<= 呈 THEN BUBUE 63w 

3 ITF R=4 UR R= ほ THEN 1=11 :T2=2 Td=1 1 : 
T4=21 : ビ H=1355 kBUSUE1 の 1 kT1=12 :T2=2 :T コ =12: 
T4=21 : ビ H=135 sBDSUB1 の 1 の 


ご 介 届 IF RS THEN FUR H=7TOU16 STEF9 FOUR U 
=7T016 iLOUCATE U。HiFRINTCHR ま (13 旨 ) siNEXT gsN 
5 次 1 


ciMM 上 F R:=6 THEN GUHSLUIE 66 中 

こら M IF ドド =7 THEN 1 = ロロ ュ T つ モウ ミコ = で 1 : 二 4 オニ 9 s じ = 
13EisGUSUE 1M1 以 

MM GUSUB 71 中 

SB FUR NM THU 4 giNEXT sgBHTO 1 王 四 

っ 7M 「1 ニ 7/ ュ kT デビ デオ ョ T「 コ モア 74 オモ 19 iC ビ H=1355 sGHSUE 1 
1M siT1= モ 16』T で = オミ Td コモ 16 1T4 モ 19 iCH=135 sGUHSUB 1 以 
1 引 

6MM_ FURH=7TOU16 STEF 9gFUR エ =4TH19sLHCATE 
1j 。HiFREINTCHR も (135) siNEXT siNEXT 

61M 1 ニモ 7 ョ T で モブ アコ =16 iT4 モ 16 iC ビ H=144 :BDSUE 
以 

6 ど M RETURN 

6JM COULOUR 2715。 14 sgT1=4 :T2 つ = モコ 3 Td コミ 2 本 4 オモ 9 
H=13 saG ロ USUB BBM iT1= ニ 4 12 ジテ 1 ロミ T コ =2M 4 テモ 2 ミ じ 


AH=135 isBHSUE BB 


64M FUR H=9TOU1SILUCATE HH,dsFRINTCHR ま (32 ) 
LUCRTEH 。EMgFRINTCHR ま (32) siNEXT 
6SM_ RETURN 


7 の 7 


@SNAKEN の つづ き 


66 ゆ CULUR 15。11 。7sFUR H=3TUE1 iFUR NE=dTOU 
MsLUCATEH 。N siFRINTCHIK ま (1d3S) agNEXTINEXT 
67 ゆ FUR H=4 TU 21 STEF 

68M FOUR _ N=dTOUEM _ iLUCATE HaNiFREINTCHR ま (3 ど 
) saNEXTsiNEXT 

69M RETURN 

7 ゆ WM _ RENM 共著 基 共 有力 エル ./ 
党 

71 ゆ H(1) ニ ジロ ョ 
s に (2 で )=18s に (3 
ソノ メニ ジョ イニ デン 
T† ロ = ゆ : コモ ピロ 

73 み M FUR _N=1TOUG iLUCRTE HK(N) 
PsaNEXT 

74M RETURN 

75M REM X※ メ メキ ニーロ ME UVER 失 革 

76M FOR N= ゆ TOU 1MgEBEEF siNEXT 

77@ LOUCATE9 11 siFRINTTGRME UVER" 

78M LOCATE7.1dgFRINTTPUSH [SB] EEEY! 1 ョ 全 ま = 
INEEY ま TIF は ま =" リ 5 リ DUR まま = リ "5"THENRUNELSETF 
人 ロ ま ="NU OR 人 ま ="n リ THEN EN ELSE GUTOU 7Z8M 
ノワ M REM 区 天 リー フタ ヨリ 甘 基 基 基 

BMM BEEP : ソ =INT(RNH(1) *21)+ キ ジュ MM=INT(RNHK1 ) 
キジ 1 ) オジ 

81MM IFVUFEEE (&H1BMM+TV+TMX32) 32THEN BMM 

ロ CM メー リュ Y イ = : ゴ モイ ゴ + 1 

83 LOUNIEXA。YaFRINI XX" 

4 TE=GTICEK(A) OUR _ STECUE (1) 


BE TF 1=1 THEN デー1 giEM ELSE IF 1 デコ 
NR ロニ 1 :F ロ = 


6 以 1F 1=3 THEN = ニー1 』B= 軸 ELSE 1IF 1=7 THE 
NQn= 1 : ロ =M 
EEEF sRETURN 
REM XX BUX GUH 区 
IF Td3T1 THEN SMRF _ T1 4T3 
IF T4T2 THEN SMRFP TE。T4 
91M 以 ご = 
FUR YY=T 人 で TH 4 
93 IF YY=T4 THEN TE=1 
FUR XX=T1 TO Td3 STEF TS 
VF'IUEEVATXX+YYxVX 。 じ H 
NEXT XX 
T コ = デイ 3ー-† 1 
NEXT YY 
RETURN 
REM %% 光 基 LTNE BUER 作 拓 甘美 
VQ=&H1 MM : ソ メニ ゴ デビ 
IF T3:T1 THEN SMRF _T1.T3 
1F T4T2 THEN SMRFP TE 4T4 
T ロ = イオ ーT2 sTF TB= 四 THEN1 6 
1MSEM 5= (コーT1 ) / 5 
FUR YY=12 TO 4 
VEUE ド EVA+TT1+TYYXVX+TYYXTS 。 じ H 
NEXT YY 
RETURN 


ゴチ ET じじ ニーヨ キ セリ チイ 甘美 甘美 


cgiH(3) =BiH(4) =BgiE(1 ) =6 
(4)=18 
:F= ウ ェ ロロ ー ウ ミニ う 3 ロモ ビデ ー1 * 


」 ド (N) :FRINT "@ 


THE 


660^690 


710 て 740 


750780 


790 て 870 


880-890 


6 面 、7 面 の た め の 、 基 本 表示 パ 
ター ン 。 

カエ ル の 位置 な ど 、 各 変 数 の 初期 
設 征 。 

ゲー ム オ ー バ ー の た め の 処 理 ルー 
チン 。 GAMEOVER の 表示 と 、 ま 
だ ゲー ム を や る か どう か を 、INK 
EY$ で 聞い て 処理 。 

ワー ブフ 処 理 。 乱数 で 座標 を 決め 、 
へ ビ を その 位置 に 移動 させ る 。 ま 
た 、 そ の 仔 置か ら 、 最 初 に 上 下 左 
右 ど ちら に 移動 する か STICK で 
求め 、 変 数 A 、B に 格納 する 。 
キャ ラク タ で 、 BOX を 表示 する 
ルー チン 。 変 数 、T 1.T3 を X 座 標 、 
T2、 T4 を Y 座 標 と し 、(T1, T2) 
か ら (T3, T4) まで の BOX を 書 
く 。 表 示方 法 は 、 VRAM に 直接 書 
きこ ん で いる 。 


1000 て 1090 BOX 用 サブ ルー チン と 同じ よ 


うに 、 キ ャ ラク クタ で LINE を 
書く ルー チン 。 LOCAT E を 使 
っ て Print させ て も よい が 、 そ 
れ よ り も 処理 が 速い し 、 座 標 を 
チェ ッ ク し や すい の で 使用 し て 
いる 。 


根っから ビギナー の キ 


ミニ で も 、 こ れ で も つ 安 心 。 リ スト の 打ち 


[ COV7 た 人 パ [ 
・ @ リ スト 修正 講座 …0t ひ は 碑 〇 上 ll 号 に 屋 二 ド ーー 110 : 
@ バ グ 探 し 講座 上 … つ ( ぬ ひ 〇 ひ ぬ i は カブ つ 〇 の 〇 の つ '…ーー ド ーーーー……ー 111 
< @ テ ー ブ 活 用 講座 92632. の 88224 の eVP7SGia 人 : 
@ プ ログ ラミ ング 入門 講座 上 … バ ババ ui ドー…… 120 


プロ グラ ム ・ リ スト を 打ち こむ お まえ に 


1 行 40 字 モー ド に する / 
「FOR MSX SPECIAL」』 に 掲載 され 
て いる プロ グラ ム は 、 す べ て 1 行 40 字 
の リス ト に な っ て いる の で 、 ま ず 、 画 
面 の 文字 も 1 行 40 字 に し て お く と 、 見 
や すい 。 
SCREEN O[RETURN | 
一 を たたく) 
ど し て から ちら 、 
WIDTH 40 


(リタ ー ン ・ 


と 部 令 し て お こう 。 こ れ て で 画面 に 出 て 


くる 文字 は 、1 行 40 字 に な っ た 。 正しく 
プロ グラ ム を 打ち こめ れ ば 掲載 リス ト 
と 画面 が 同じ 形 に な る っ て わけ 。 
タ 行 番号 か ら 打ち こ お / 
リス ト は も ちろ ん 行 番号 か ら 打 ちこ 
むこ と 。 行 番号 を 自動 的 に 発生 し て く 
れる “AUTO” と いう 命令 が ある の で 
ニー オル を 1 更 ② を ラク グチ シン だ 竹 。 
AUTO [RETURN 
と 打ち こめ ば 、 す ぐ 行 番号 10 が 表示 
され 、 ち ゃ ん と 1 マス あけ た と ころ に カ 
ー ン ソル が 点 減 す る の で 、 リ スト どおり 
正しく 打ち こめ ば いい 。 そ の 行 番号 の 
リス ト を 打ち お わっ た ら 、 リ ター ン ・ 
キー。 す る と 、 炊 の 行 番号 が 自動 的 に 
現れ る と いう 仕組 み だ 。 
『FOR MSX SPECIAL』」 で は 、 行 番 


号 が ほぼ 10 き ざ み に な っ て いる の で 問 
事 ( は 少な いけ れ ど 、 も し 、 他 の プロ グ 
ラム を 打ち こむ と き は 、 そ の リス ト が 
リナ ン バ ー ( 行 番号 を 10 き ざ み に 整理 
する こと ) され て いな いと AUTO は 使 
えな い の で 注意 する こと 。 

と ころ で 、 プ 呈 グ ラム を 打ち こん で 
いる 途中 で 、 前 の 行 に ミス を 発見 し た 
ら 、 す ぐに 直し て お こう 。 

例え ば 、100 行 まで 打ち こん で きた 
と き に 、 行 番号 80 に ミス 発見 と いう と 
き 。 す ぐに 、 カ ー ソ ル を そこ まで 移動 
させ 、 修 正 、[RETURN |。 する と 、 行 番 
号 90 に ~ *” が 付け 加え られ て 、 カ ー ソ 
ル が 移動 する …… の の が ポキ に お ろ た 
えな いこ と 。 も し 、 90 行 で 修正 する こ 
と が な けれ ば その まま リタ ー ン ・ キ ー 
を た た け ば いい 。 こ れ は 、「 す で に 90 行 
に は プロ グラ ム が 入っ て いる 」 と いう 
し る し な の だ 。 

た だ 、 リ スト を 見 な が ら 打 ちこ むと 
き は 、AUTO を 使わ ず に 行 番号 ご と 打 
ちこ ん だ ほう が ミス が 少な い …… IN 
う 話 も ある けれ ど 、 キ ミ に いち ば ん あ 
っ た や り 方 を 探 そ う 。 


ダス ペ ベース (空白 ) は 
慎重 に / 


行 番号 の 直後 や 命令 と 命令 の あい だ 
に は 、 た いて い ス ペー ス ( 空 白 ) が ある 


ね 。 こ の スペ ー ス は 、 た と え 和 無視 し て 
打 た な く て も 、 コ ンピュータ は ちゃ ん 
と 動い て くれ る けど 、 な る べく ちゃ ん 
と スペ パーズ マッ 幸 デ を 灯る そお 有三 う 。 物 
っ て いる 最 中 に 混乱 し や すい か ら だ 。 

絶対 、 無 視 し て は いけ な い の が 、 ク 
ォ ー テ ーション ・ マ ー ク ( “~ ) の な か 
の スペ ー ス 。 こ の スペ ー ス は 、 画 面 に 
キャ ラク タ を 表示 する と き に 重要 な 意 
味 を 持っ て いる の が 多い か ら 、1 個 た り 
と る も あろ る 学 が か に し な いと 。 

で きれ ば 、 定 規 の よう な まっ すぐ な 
も の を あて て 、 他 の 文字 と あわ せ て 見 
な が ら 、 ス ペー ス の 数 を キチ ン と 数 え 
て お いた ほう が いい ね 。 


を ひこ と 区 切り ご と に 

必ず [RETURN | / 

リタ ー シ ・ キ ー は 、 あ る 行 番号 に つ 
な が る プ ブログ ラム ひと 区 切り を 打ち こ 
お むと に 必ず た た く ニ と 。 ず る と 、 衝 
ー ソ ル が 次 の 行 の 先頭 に 移動 する の で 、 
次 の 行 番号 か ら 打 ちこ ん で いく ……・ と 
いう パタ ー ン が 正しい 。 

最初 に 打ち こむ と き に は 、 ま ず 、 リ 
ター シ ・ キ ーー を 門 れ る よう な こと は ほな 
い だ ろ うけ ど 、 あ と で リス ト を 修正 す 
る と き な ん か に 結構 ミス が 多い 。 

どん な に 小さ な 修正 で も 、 プ ブロ グラ 

ム を 修正 し た ら そ の た びに リタ ー ン ・ 
一 を た た だ たく こと を 。 それ を 忘れ で 、 有 カカ 
ー ン ソル を 別 の 行 番号 の と ころ に 移動 さ 
せ て し まう と 、 修 正 し た は ず の 人 箇所 が 
まっ た く 直 っ て な い 、 で な こと に な っ 
を ルル ま つの が だ 。 

で きれ ば 、 修 正 が ひと 区 切り つい た 
と ころ で 、 も う 1 度 リ スト を 画面 に 出 
し て 、 確 認 す る よう に すれ ば いい ね 。 

リス ト の 出し 方 は 、111 ペ ー ジ に 詳し 

く 書 いて いる の で 参考 に し よう 。 


4 イル 


e リ スト 備 


打ち こみ ミス は すぐ < 直せ | 


つの キー で 修正 自由 自在 エ o 


どん な に 注意 し て 打ち こん で いつ て も 、 は つっ と 気づく と 前 の ほう で 打ち こみ わす れ 


て い だ り 、 ER 以 ず ある 。 
ち ガ が えな き や い け な い の か が 


o の ee 9 の 


、 そ ん な 


そん な と き 、 行 全部 を 打 


な こと は な い の だ 。 パ ソコ ン の 画面 は 、 消 


す の も か が ん だ ん だ し 、 文字 と 文字 の あい だ に 条 し レ い 文字 を つけ 加え る こと も が ん だ ん 


に で き て し まう の だ 。 そ の だ め に 、 こ ご 
用 すれ ば 、 リス ト の 修正 な ん て ホン ト に ラフ チン な の だ | 


IINS キー 
(イン サー ト ・ キ ー) の 使い 方 


10 SCREN 2.1.9 
号 


1O SCREEhL 2.1. 〇 


すでに 打ち こん だ プロ グラ ム の 文字 
と 文字 と の あい だ に 、 新 し い 文 字 を つ 
け 加 えた いと き 、[INS」 キ ー の 出番 と な 
る 。 呼 び 方 は 「 イ ン サ ー ト ・ キ ー」。 

例え ば ヾ SCREEN” と いう 命令 を 打 
ちこ ん だ は ず な の に あと で よく よく 見 
た ら “SCREN′” に な っ て いた 、 な ん 
て こと は よく ある よね 。 

SE と NF の の あい だ に 、 も う ひ る 
*EZ が 入れ られ れ ば ぱい いん だ けど と 、 そ ぞ 
の まま た だ カー ソル を 移動 し て 打ち こ 
ん だ だ け で は 、。 う まく いき つっ ない 。 

そこ で 、 新 し い 文 字 を 打ち こみ た い 
場所 に カー ソル を 移動 させ て | INS_ | を 
た た いて みよ う 。 カー ソル が 縮ん で 2 
くら い の 高 さ に な っ た ね 。 

カー ソル が この 状態 
キー か ら 新 し い 女 字 が 打ち こま れる た 
ぴ びに 、 も と も と そこ に あっ た 文字 ( 例 
で (は N”) は どん どん 右 に 移動 し て 場 
所 を あけ て くれ る 仕組 み に な っ て いる 。 

1 娘 字 と いわ ず 、 何 女 字 で も 、 ど ん 
どん 、。 あ い だ に 打ち こめ る っ て わけ だ 。 

た だ し 、 も う 1 虎 INS | キー を 押し 
た り 、 カ ー ソ ル ・ キ ー を 押し た り 、 リ 
ター ン ・ キ ー を 押し た りす る と 、 カ ー 
ソル が も と の 状態 に も どっ て し まう か 
ら 握 を つけ よう 。 


7 の 


に な が つる 左 と ざき は 、 


IBS| キ ー 
(バッ クス ペー ス ・ キー) の 使い 方 


20 COLO 内 11.2.2 


文字 が た りな か っ た の と は 反対 に 文 
字 が 多 す ぎ た 場 合 は 、[ BS | キー。 バッ 
クス ペー ス と 呼ば れる の は 、 ス ペー スズ 
・ キ ー と は ちょ うど 反対 方 向 に スペ ー 
ス を 打っ て いく 働き が ある か ら だ 。 

例え ば COLOR” を “COLOUR" 
と 打っ て し まっ た と き 。 確か に 、 英 語 
で は colour と いう スペ ル も 正解 な ん だ 
サ ど 。 こ の スペ ヘル だ と ヨシ ピュ ョ ー タ は 受 
けつ け て くれ な い の だ 。 だ か ら 、 余 計 
な *U” を と っ て し まわ な いと いけ な い 。 

そこ で 、 カ ー ソ ル を 除き た い 文 字 の 
右側 に 持っ て こよ う ( 例 で は R の と こ 
ろ ) 

| BS | キー を 1 回 だ けた た く と 、 カ ー 
ソル の 右側 に ある 女 字 列 ご と 、 左 に 移 
動 し て 、 1 文字 分 が パッ と 消え て し ま 
9: の 97。 

た だ し 、 長 く 押 し て いる と 、[ BS_| キ 
ー を 何 度 も た た いた の と 同じ こと に な 
っ う て 、 消 し て ほ い け な か っ た 文学 まで 
消え て し まう こと に な る か ら 注 意 。 

| BS | キー は 、 必 ず 、 消 し た い 文 字 の 
閉 あ は た くべ 有三 を 

| BS | キー は 、[ INS | キー と 同時 に 使 
える の で 、2 つ の キー を 組み あわ せ て 、 
削 際 し た り 、 挿 入 し た り 、 自 由 に で き 
る よう 、 ち ょ っ と 練習 する と いい ね 。 


紹介 する 3 つの キー が ある 。 ご この づつ を 活 


IDEL| キ ー 
(デリ ー ト ・ キ ー) の 使い 方 


行 分 は 無事 に 打ち こん だ けれ ど 、 
次 の 行 番号 の プロ グラ ム を 打つ まえ に 
リタ ー ン ・ キ ー を た た きわ すれ て し ま 
っ て 、 か わり に スペ ー ス ・ キ ー を た た 
いて いた な ん て こと も ある ね 。 

この まま だ と 、 コ ンピュータ に は わ 
けが わか ら な く な っ て し まう の で 、 ま 
ず 20 以 下 は 消さ な きゃ いけ な い 。 

も ちろ ん 、。 消す と き ほ は スペース *・ キ 
ー で 消し た っ て か まわ な いん だ けど 、 
こ オ ルル 志 と の MM と ん どん 右 に 行っ 
は こん な と き に 活用 し な く ち め 。 

カー ソル を 、 消 し た い 文 字 列 の 先頭 
に 持っ て き て お いて 、[ DEL | キー を 押 
し っ ぱな し に し で みよ まう 。 

する と 、 カ ー ソ ル の な か に 、 右 側 の 
文字 列 が 吸い こま れる よう に 消え て い 
く の だ 。 た だ し 、 も し 、 ず っ と 後 の ほ 
うに 残し て お きた い 文 字 が ある 場合 は 、 
途中 で 押す の を や め て 、 1 回 ずつ 慎重 
に 消し て いっ た ほう が いい ね 。 

| BS | キー は カー ソル の 諾 側 を 消し て 
いく けれ ど 、| DEL 」 キ ー は カー ソル の 
な か と 右側 を 消し て いく と いう 点 を よ 
く 党 えて お いて 、 使 いわ けれ ば 、 プ ブロ 
グラ ム の 修正 も グッ と ラク に な る ぞ 。 


@ バ 探し 講座 


バグ は こう や れ ば 見 つか る ! 
エラ ー の 意味 と バ グ の 探し 方 を ガイ ド 。 


「 バ パプ 」 こ と いう の は 、 も と も と 中 の こと だ けれ ど 、 コ ン ピ ュ ユー タダ の 世界 で は プロ グラ 
ム へ の まち が い を 指す 。 こ ご の バグ プ が ある と 、 わ け の わか ら な い メ ッ セ ー ジ が ガ 出 て きだ り 、 
つま ぐ 動 いて ぐれ な が つ だ り 、 と き に は リセ ッ ツ ト ・ ボ タン を 押さ な いと どう し よう も 
な く な る と きも ある 。 も と も と の ブ プログ ラム に 欠陥 が びあ る こと も だ まにある けれ ど 、 


ます 99 バ パーセント は キミ の 打ち こみ ミス が 原因 と 考え だ ほう が いい 。 


パグ が ガ 出 だ ら 、 


こん な 万 法 で チノ チク と 探し 出し て 、 リ スト ご お り に 正しく 打ち こも う ! 


シン ダッ ジス 


Syntax erFOF In XX 


打ち こみ ミス の チャ ン ピ オ ン ! 注意 し て 見 直せ ば すぐ 取れ る 。 


*Syntax error in xx と いう エラー 
・ メ ッ セ ー ジ が 出 た ら 「xx 行 に 文法 上 
の 間違い あり 」 と いう 合図 。 
「 文 法 上 」 と いう と むず か し そう だ け 
ど 、 実 は と て も 単純 な エラ ー な の だ 。 
つづ り が まち が っ て いた り 、 文 字 が 
びと つ 挟 け で いた だ た り と いう ミス が いち 
ば ん 多い 。 そ ぞ それだけ に 、 軸 や すい ラ 
だ し 、 ま た 、 すぐ に 見 つけ て 直し や 
ずい モエ ラー な ん だ 。 ニニ の パグ を 見 つけ は 
だ す ポ イン ト を 押さ えて お こう 。 


' 宣 FRNTAY MEXT IP 


@ LIST の 使い 方 


も が ん を CC LIST と いう コマ 


[F 4 | キー を 押し て 、 
LIST 「RETURNI 


ム が 行 番号 順に ズラ ズラ ッ と ヒ 出 て 〈 る 。 


バグ 取り 兵器 その ④① 


キミ の 打ち こん だ プロ グラ ム を 画面 に 呼び も ご ど せ |! 
バグ を 取る に は 、 キ ミ が どん な ふう に 
打ち こん で し まっ だ の か を 見 な くち ゃ 話 


ンド 抜き に は 、 バ グ 取 り は 語れ な い の だ 。 


と や れ ば 、 キ ミ が 打ち こん だ ブロ グラ 


だ だ 、 邊 部 が お 出 そ き て じ ま う の て が ん じ 
ん の バグ の ある あたり は 画面 の 上 に 消え ぇ 


まず 、 考 えら れる の は 命令 の つづ り 
ミス 。 英語 が 得意 な 人 で も 、 タ イプ に 
あま りな れ て いな いと 、 超 こり や すい 。 

例え ば 、^Syntax error in 60” と 出 
た ら 、 さ っ そく 60 行 の リス ト を 取っ て 
の よう 。 そこ が 。 

60 PRNT A 

の %。 

60 MEXT I 

と な っ て いる こと っ て 案外 多い の だ 。 
PRNT は PRINT 、MEXT は NEXT に 
直せ ば 、 こ の バグ は 一 発 で 取れ る 。 

これ は 、 命令 語 の つづ り を キチ ン と 


ちゃ うか も 。 そこで 、[STOP| キ ー で と き 
どき 画面 を と め ゆな が ら 見 て いく の も ひと 
0 りら OS の 2: の: 
[CTRLHISTOP] と や れ ば 、OK が 出 て リ 
スト を 手直し で きる 状態 に な る 。 

で も 、 単 純 な バグ な ら 、[F 9 キー で 、 
LIST. [RETURN| 

と 、LIST の 直後 に ば リオ ド の ある コ ュ 
マン ド な ら 、 エ ラー の 出 た 行 番号 だけ を 
表示 し て くれ る 。 た だ 、 バ グ が この 行 に 
な く て 、 ま わり を 見 る 必要 も ある ね 。 を 


ん な と き は 、 
LIST 100?00 [RETURN| 


出し て くれ る の だ 。 


Ac っ eS 
の リス ト を 出し て 《 和 れる っ て わけ 。 


を 取っ て いく の だ 。 


な る ぞ / 


知っ て さえ いれ ば すぐ で わか る ね 。 
で も 、 気づき に くい の が 、GOTO を 

GOT0 と 打ち こん で し まっ た 場合 。 
O と 0 は 、 キ ー も 近い の で 特に 注意 し 

あの 。 

g。 (し  /) 


炊 に 多い の は 、 カ ッ コ の ミス 。 パソ 
コン の 命令 や 関数 で 使わ れる カッ コ は 、 
何 重 に も な っ て いる こと が 多い の で 、 

> ひとつ 条 ちこ みぞ で そこ 
ん で て で こと が 多い の だ 。 
例え ば 、 


が だ っ つっ た 、 な な 


と すれ ば 、100 行 か ら 200 行 の リス ト を 


を の ほか 、“LIST100-" な ら 100 行 以 
~LIST-200" な ら 、200 行 まで 


ご うじ 6 遇 だ た び ス ドア 修正 じ で 、 ラ フツ 


この 命令 は 、 し ょ っ ちゅ う 使 うこ と に 


アア 


20 A 三 INT (50 *RND (1) 
と いう 行 が ある と 、 
Syntax error in 20 
と 出 て し まう 。 こ の 命令 は 、50 * R 


ND( 1 )(0 か ら 50 未 満 の 乱数 を 発生 する ) 


と いう 式 の 値 の 小数 点 以 下 を 切り 捨て 
て 、A と いう 変数 に 置き か えよ と いう 
こと が ん だ ろう けど 、 カ ッ ヨ が 1 つた 
りな い の だ 。 RND と INT に (それぞれ 
1 組 の カッ コ が 文 法 上 必要 な ん だ けれ 
ど 、 ど う や ら 1 つ 見 落と し た よう だ 。 
そこ で 、 引 スト を よく 見 る と 、 
20 A 三 INT (50*RND( 1 )) 

と な っ て いる は ず 。 最後 の と ころ に 
カッ コ (左向き ) が 2 つ 必 要 だ っ た の 
だ 。 ん な が ぶ う に 、 カッ ヨ が いく つも 
出 て くる と き は 特に 注意 する こと 。 右 
向き カッ コ と 左向き カッ コ は 必ず 同じ 
数 だ け な く ちゃ いけ な い の だ 。 


に 人 


/ @ 


命令 や 関数 に は 、 い くつ も の カン マ 
(, ) で 区 切ら れ た し っ ぽ を つけ て いる 
も の が 多い 。 例 えば 、 

10 COLOR 15, /, 7 

と いう 命令 が ある 。 この カン マ を 、 

ビリ オド と 打ち まち が えて 、 
10 COLOR 15.7. 7 

な ん て や っ ちゃ うと 、 ピ ッ ン ノ 
Syntax error in 10 

と 出 て し まう 。 ま ず 、100 多 、 命 令 
に くっ つい て くる 点 は カン マ の は ず だ 


か ら 、 ふ だ ん か ら 気 を つけ て お く と い 
いね 。 た だ し 、 小 数 点 は ピリ オド (.) 
だ か ら 、 逆 に まち が えな いよ うに 。 
20 A 三 3,14 

な ん て し た と きも 、 
Syntax error in 20 

が て し まう 。 人 門 し く は 、 
20 A=3.14 

と な っ そい る は ず 。 
考 。 

選 回 多 ( ?)。、 形 ミ ヨ 四 シン ( * 
ち が え や すい 。 
Syntax error in 100 

と 出 て 、100 行 を 見 る と 、 
100 PRINT A: B: C: GOTO 20 

と 新 ち 二 ま れ て いた 。 も と の リ り リスト 
を 見 直す と 、 
100 PRINT A: B: C: GOTO20 

と な っ て いる は ず 。 つ まり 、GOTO 
文 の 直前 に ある コロ ン ( : ) を セミ コロ 
ン ( : ) に 打ち まち が え で いた わけ だ 。 

命令 と 命令 の 区 切り は コロ ン 、 そ の 
他 の 場合 は た いて い セ ミコ ロン に な っ 
て いる は ず 。BASIC に 慣れ て くれ ば 、 
わか っ て くる けれ ど 、 最 初 は 、 コ ロン 
か が セミ コロ シ か 、 


ig 。 DAIA 


Syntax error in 200 


) も 取り 


と 出 た と き 、200 行 が DATA 文 な ら 、 


O と 0 、1 と 1 の 打ち まち が い を 疑っ 


つね に 気 を つけ よう 。 


て で みよ う 。 も と の リス ト が 、 
10 READ A, B, C 
) 


200 DATA 10, 20, 30 

と な っ て いる と き に 、200 行 を 
200 DATA 10, 20, 3O 

て jp 
200 DATA IO0, 20, 30 

と 打ち まち が っ て る こと が 多い の だ 。 

READ 文 で 、 変 数 A 人 、B、C に デー タ を 
読み こも うと し て いる の に 、 そ の デー 
タ が 数 字 で な いと エエ ラー が 因 て し まう 
つて お ( け 。 
aa に 

打ち こん で いる と き に 、 な に か の 拍 
子 に よけい な 文字 が くっ つい て いた り 
し た と き に も 、Syntax error の 出る 
こと が ある 。 

それ か ら 、 次 の 行 が その まま くっ つ 
My 宇 y だ GA こと も ある 。 こ れ は 、 
リタ ー ン ・ キ ー を 押し 忘れ た と き に よ 
0 

こん な さぶ さ う に 、 よ まげ い に く ぐ くっ つい て 
いる 文字 を “ゴミ ” な ん て いっ て いる 。 
ゴ ヨミ (は ほ は 、 も と の リス ド 下 と よく 見 胡 べ て 、 
その 行 だ け 打ち 直す の が 確実 だ ね 。 た 
だ し 、 次 の 行 と くっ つい て いた 場合 は 、 
それ も 打ち 直す こと 。 と いう の も 、 く 
っ うつ いで し まっ て いる と いう と は 、 
も と も と パソ コン に ちゃ ん と 入っ て な 
いこ と が 多い か ら が だ 。 


イリ ー ガ ル 


ファ ンク ショ ン 


| 


le9a| fUnCtIOn Cl In XX 


数 を 扱う 命令 や 関数 に 注意 。 バグ は その 近く に ある ! 


\llegal function call in xx′ と は 、 
xx 行 で 使わ れ て いる 、 数 を 扱う 命令 や 
関数 で 、 制 限 範 囲 を 越え た 数 を 扱 お う 
だ し た どき 選 画 る ーー だ 。 

この 場合 、 打 ちこ み ミ ス は 2 通り あ 
る 。 そ の 命令 や 関数 の 直後 に ある 場合 

、 そ こ で 使っ て いる 変数 の 値 を 決め 
て いる と ころ に ある 場合 の 2 つ だ 。 

な か ん て で MAN っ で いで て も 、 シ と ながい 
だ ろう か ら 、 具 体 的 に 説明 し よう 。 


*g 。 し 〇 じ A TE 
LOCATE 文 は りー ソル の 位置 を 決め 
命令 。 位 置 は 、 座 標 で 指 

LOCATE 文 の あと に は 座標 が くる こと 

に な る 。 
この 座標 は 、 数 学 で 出 て くる 座標 と 

は 違っ て 、0 か 正 の 整数 し か つか えな 
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定 す る の で 、 


いこ と に な っ て いる の だ 。 だ か ら 、 牡 
端 な 話 、 
10 LOCATE 10, 一 1 

な ん て 命 舎 だ と た ちち どころ に ピッ と 
至 ウ デー に な っ で て し まう ね け 。 や で も る 、 こ ニ 
うい う 打 ちこ み ミ ス は まず や ら な い だ 
2 ラフ 。 

あり そう な の は 、 こ の 座標 に 変数 が 
使っ て ある 場合 。 例 えば 、 こ ん な プロ 
グラ ム が あっ た と し よう 。 
10 CLS 
20 FOR | 三 0 TO 24 
30 LOCATE 35, 24 一 I: PRINTT*": 
40 NEXTI 

この デジ ログ ラム を 打ち 三 ん で 、 も し 
lllegal funcion Call in 30 

と 出 た ら 、 ま ず 、LOCATE の 後ろ を 
よく 見 よう 。 LOCATE 35,2 一 ! な ん 


な っ て る ニニ と が ある 。 つ まり .24 一 | 
で ある ペペ き と こ ろ が 、 タク ター! と な っ て し 
まっ て いる の で エラ ー が 四 た わけ だ 。 

これ は 、1 と いう 変数 が 0 か ら 24 ま で 
者 えて いっ て いる た め に 、 2 ターl| だ と | 
が 3 に な っ た と き に マイ ナス の 値 に な 
5 て し まう から だ 。 

また 、 い くら 30 行 を 見 直し て も 打ち 
こみ ミス の な い 場 合 だ っ て ある 。 こ ん 
な と き は 、 あ きら め ず に 、1 と いう 変 
数 の な か に 入っ て る 数 値 を 確か め て み 
ああ 9 
PRINT IIRETURN| 

の 命令 を 実行 させ る と 、 す ぐ で ぐ 次 の 

行 に 1 の 値 を 出し て くれ る 。 す る と 、 
多分 ヾ 25” と いう 数 字 が 出る は ず だ 。 
ちら て で て こと は 、 ニ ここ で も 、24ー! が マイ ナチ 
ス に が っ て し まう で は な い が / ノ 


1 の 値 に どう し て 、 25 な ん て も の が 
入っ て いる の か ? その 原因 は 、1 の 
値 を 決め て いる 、FOR の と ころ に ある 。 
20 行 を 見 て みる と 、 

20 FOR | 三 0O TO 34 

な ん て ふう に 、TO の あと の 数 字 を 多 
く 打 ち ま ち が え で いた / と いう こと 
に 気づく は ず 。 

ご ん な さぶ うに 、 い ずれ に し て も 、 変 
数 の まわ り に バグ が ある っ て わけ だ 。 

た だ 、 び in 30” と 出 て いて も 、 必 ず 
し も 30 行 に バグ が ある と は 限ら な いか 
ら 、 難 し いこ と も ある ね 。 

変数 の 値 を 決め て いる 行 が 、 例 の よ 
うに すず すぐ わかれ ぱい いけ れ ど 、。、 ち ょ っ 
と 複 維 で わか り に くい こと も ある 。 そ 
ん な と き は 、TRON と いう 命令 を 使っ 
て 、 エ ラー が 出る 前 に 実行 し た 行 番号 
を 調べ て いけ ば 見 つけ や すい 。TRON 
の 使い 方 は 、56 ペ ー ジ て で 説明 し て る の 
で まく 読ん で 使い ニニ な ぞう 。 

この LOCATE と よ ^ 似 た 形 で 数 を 取 
り 扱 う も の に は 、 他 に 、 COLOR、 SCR 
EEN、 WIDTH、 CLEAR、 POKE 、 V 
POKE と いう 命令 が ある 。 ぞ で れれ ぞ れ 、 
扱う 数 の 領域 や 意味 ・ 使 い 方 は 違う け 
れ ど 、lllegal function call の 出 た 行 
に これ ら の 命令 が 出 た ら 、 命 令 の あと 


に 続く 数 か ら バ グ の 捜索 を は じ め れ ば 
いい わけ だ 。 


@PRINT の 使い 方 

特に 、 Illegal fanction call な ん か で 
威力 を 発揮 する の が 、 PRINT だ 。 

エラ ー を 発生 きせ て し まっ た 変数 の 値 
が わか れ ば 、 も う バ グ は 半分 と れ た も 同 
人大 


**O 


バグ 取り 兵器 その ② 


変数 の 値 を 調べ て 、 バ グ を 追 ! 


5g。 LINE 


LINE 女 は 、 指 定 し た 2 つの 座標 を 線 
で 結ぶ 命令 だ 。 座 標 を 扱う 命令 な の で 、 
前 の LOCATE 文 と 同じ く 、 座標 の 数 値 
に マイ チチ ス を 入れ て し まっ た と き に 、 
エラ ー が 用 る の だ 。 

だ か ら 、 探 し 方 は 、LOCATE 文 と 同 
じ 。 た だ 、LINE 文 の あと に 出 て くる 数 
は 、 

100 LINE (X1,Y1) 一 (X2, Y2) 

と いう よう に 、 カ ッ コ で 囲ま れ て い 
る と ころ が 違う の で 注意 。 

ここ で は X1、Y1、X2、Y2 が 座標 値 。 座 
標 (X1,Y1) か ら (X2,Y2) まで 線 
を 引け と いう 命令 な が の だ 。 だ か ら 、 エ 
ラー が 出 て 変数 の 値 を 調べ る と き は 、 
PRINT X1,Y1,.X2,Y2[RETURN | 

と いう ぶ ふう に 調べ よう 。 こ の 命令 
実行 する と 、 少 な く と も どれ か 1 つが 
マイ ナス の 値 に な っ て いる は ず 。 そ の 
変数 の 値 を 決め て いる 場所 を 見 れ ば 、 
必ず バグ に 遭遇 する と いう わけ だ 。 

た だ 、 も し 、X 1 な ど を 決め て いる 
命令 が 、 

90 READ X1., Y1, X2, Y2 

と いう ぶ ふう に READ 文 に な っ て いる 
場合 は 、 プ ログ ラム の ずっ と あと に ある 
DATA 文 の な か で 打ち こ み ミ ス を や っ 

て る 場合 が 多い 。DATA の な か に 、 よ ( け 


例え ば 、 
100 LOCATE A,B 

と いう 行 で エラ ー が 発生 し た 場合 、 
PRINT A, BIRETURN| 

と し て みょう 。 エ ラー が 発生 し た と き 
に 変数 A, B の 取っ て いた 値 が た もち どころ 


Tunc て /o cg みい 


に 表示 る れる 。 例 えば 、 


0 


の - 1 は B の 値 。 っ て こと は 、 
決め て る 部 分 に バグ あり ! と 容疑 者 が グ 
ン と し ぼら れる っ て わけ だ 。 


いな 数 字 が 入っ て いな いか 、 抜 か し て 
いな いか 、 慎 重 に 調べ て みれ ば 見 つか 
る (ば ず だ 。 

命令 の あと に 、 カ ッ コ 付き で 数 を 扱 
っ て いる も の に は 、 他 に も 、 CIRCLE、 
PAINT、 "PSET、PRESET、PUT 
SPRITE な ど が ある 。 

これ ら は 、 た だ カッ ヨ で 数 を 扱う だ 
け で な く 、 
90 PUT SPRITE 1, (X, Y), J, 0 

な ど と いう 複雑 な 形 に な っ て いる こ 
と が ある 。 こ の 場合 は 、 1、X、Y、J、0 が 
全部 、PUT SPRITE の 扱っ て いる 数 な 
の だ 。 それに し て も 、 欲 張り な 命令 で 
は ある 。 


mn CHRS( ) 


よく 出 て くる 関数 に CHR$ () と い 
う の が ある 。 キ ャ ラク タ ・ コ ー ド を キ 
ャ ラク タ に 変え る 関数 で 、 例 えば 、 
PRINT CHR$S(65) [RETURN| 

と 入力 する と 、「A」 が 画面 上 に プリ 
ント され る の だ 。 

この CHR$ が カッ コ の 中 で 扱え る 数 
字 は 、 0<255 と 決ま っ て いて 、 こ の 範 
囲 を 超え る と や っ ぱり 、 エ ラー が 出る 。 

探し 方 は 、 前 の 2 つと 同じ だ けど 、 
前 に あげ た 命令 と ちがっ て 、 さ り げ な 
く 他 の カッ コ の な か や PRINT 文 の 直 
後に 置か れ て いる の で 、 気 を つけ て 。 


に 
と いう 具合 に 。 最 初 の 0 は A の 値 、 次 
B の 値 を 


77 ラ 


Out of DATA In xx 


デー タ が た りな いよ / と パソ コン は 泣い て いる の だ 。 


rg DATA 


"Out of DATA” と 上 遇 た と き は 、 ま 
ずい ちば ん に 考え られ る の が 、 DATA 
の も れ 。 in xx の xx に は 、 READ 文 の 
ある 行 番号 が 表示 され る けれ ど 、 む し 
ろ 問 題 は その ずっ と 後 の 行 に ある DA 
す 和 の と ころ な の だ 。 

DATA に 入っ て る デー タ の 総数 を 数 
えて 、 も と の リス ト を 打ち こん だ り ス 
ト と 比べ て みよ う 。 打 ちこ ん だ リス ト 
の ほう が 、 総 数 は 少な く な っ て いる は 
の だ 。 の つま 、 お ちち もら し た る で お わけ 
な の だ 。 

も と の リス ト を 早 ら し あわ せ 、 正 し 
くす べ て の DATA を 入れ よう 。 


77 タ を 


rs ES1ORE 
例え (ば 、 ニ ん な ログ ラム に な っ て 
いる と 、 
10 RESTORE 50 
20 FOR | 三 1 TO 10 
30 READ A:PRINT A: 
40 DATA 1,2, 3, 4,.5 
50 DATA 6, 7, 8, 9, 10 
RUN させ た 場合 、 
Out of DATA in 30 


NEXT 


が 出る 。30 行 を いく ら 見 て も 、 バ グ 


が 見 つか ら な いし 、DATA 文 の と ころ 

に も 特に バグ は な い …… >。 そん な が とき 

は 、RESTORE 文 を 調べ て みよ う 。 
RESTORE 文 と は 、READ で デー 


タ を 読み こむ と き に 、 読 みこ み は じ め 
る DATA 文 の 行書 号 を 指定 する 命令 な 
の だ 。RESTORE50 っ て こと は 、50 行 
の DATA 文 か ら 読 み は じ め よ と いう こ 
と を 。 で 、 よく 見 る と 、 50 等 が ら と いう 
こと を は 、 デ ー タ が 5 つ し か な いと に 
な る 。READ 文 は 、 FOR ルー プ で 10 回 
くり か えさ れる と いう の に …… 

( ほ た だし て で て 、 も と の り ス トド ト は ほど の 計ら 
た の だ ろう 。 こ ん な 場合 、 ホ ント は 
10 RESTORE 40 

と な っ で いる は ず 。 つま り 、RESY 
ORE で 指定 する 行 番号 を 打ち まち が え 
だ だ め 、 デ ー タ が た _ な く な っ そ て し 
まっ た と いう 、 他 表 な が い パ ク グ な の だ 。 

RESTORE の 行先 は 常に 注意 / 


NEXT without FOR 


FORH の な い NEXT な ん て ……/ 


*NEXT without FOR in xx と いう 
エラ ー は 、xx 行 の NEXT に 対応 する 
FOR を 実行 で き な か っ た 場合 に 起き 


FOR-NEXT 


まず 、 考 えら れる の は 、FOR-NE XT 
ルー プ に 使わ れ て いる 変数 の 打ち まち 
が いや 、FOR の ある 行 が そっ くり 抜け 
落ち て いる 場合 。 例 えば 、 
10 FOR | 三 0 TO 100 
) 
30 NEXT I 

どい うべ ぶさ う に な っ て いる ブロ グラ ム 
を 打ち こむ と き に 、 ど ちら か で 1 を 別 
の 廊 字 に 打ち まち が えて いる と 、30 行 
で この エラ ー が 出る 。 も ちろ ん 、10 行 
が そっ くり 消え て いて も 同じ 。 

も と の プロ グラ ムリ スト で 、FOR や 
NEXT の 出 て くる と ころ を じっくり 見 
直せ ば 、 カ ンタ ン に バグ は 取れ る ね 。 


rj (GO 1O 


や っ か いな の は 、 別 の 行 の GOTO 文 
で 行先 の 行 番号 を まち が えた た め に 、 
実行 の 流れ が FOR-NEXT ル ー プ の な 


か に 割り こん で きた 場合 。 例 えば 、 
10 GOTO 40 
) 
40 FOR | 三 0 TO 100 
50 PRINT !I 
60 NEXT I 

と いう プロ グラ ム を 、10 行 で $ す 」 ち こ 
み ま ち が えて 、 
10 GOTO 50 

な ん て し て し まう と 、50 行 の FOR を 
通ら 5 ず に いき な り 50 行 、60 行 と 実行 し 
CC も まい 
NEXT without FOR in 60 

と 出 て し まう の だ 。 この 場合 は 、FO 
R に も NEXT に も バグ は な い の だ か ら 
いく ら 探 し て も 見 つか ら な い 。 

ひと つの 手 と し で は ほ は 、 か た っ ぱし か 
ら GOTO 廊 を チェ ッ ク し て いく ニニ と だ 
( ゆ ど 、. ち ちあ とどめ ん を くさ りや の" Si SN 
TRON( 呈 P116) を 使う と 、 わ り と ラク 
に 見 つげ られ る の だ 。 エラ ー の 因 た と 
ころ か ら 、 行 番号 を 送 に た どっ て いけ 
(ば 、 エ ラー を 出し た 悪玉 GOTO 文 が 見 
つか る っ て わけ 。 

こん な ぶさ 、 う に 、 も ちょ っ と 見 た だ け で 
し は わか り に くい ミス は TRON で OK。 


で その他 の エラ プー 


トリ スリ ーー 


ン 
rg RETURIN 
thout GOSUB 
WI 
これ は 、GOSUB 文 を 通っ て いな い 
の に RETURN を 実行 させ られ た と き 
に 出る エラ ー。 リス ト を 見 な が ら 打 ち 
こむ 場合 は めった に 出 な い は ず だ けど 、 
た ま に 、END 文 の 行 を 抜か し て 打っ 
だ と き に 軸 る こと を が ある 。 詳し く は 、 
「TRON の 使い 方 」 の と ころ を 見 て ね 。 
オー バー フロ ー 
sn OVGFTIOW 
BASIC で 扱え る 数 字 の 大 き さ は 無 
也 じ ゃ や ない 。 あ まり に も 大 きい 数 を 扱 
お うと する と 、 こ の エラ ー が 出 て くる 
の だ 。Overflow と は 、^~ あ ふれ る と 
いう 意味 。 
この エラ ー の 出 た 行 番号 に 計算 式 が 
あれ ば 、 そ れ を 締 密 に チェ ッ ク 。 特に 
べき 乗 ( へ ) を 使っ た 式 な ど で ち ょ っ と 
し た 打ち ニニ み ミス を や る と 、 こ の エラ 
ー の 出 て くる こと が ある 。 
また 、 エ ラー の 出 た 行 に READ 文 が 
あれ ば 、DATA 文 の 中 身 を 調べ る こと 。 
100 DATA 10000, 20000,30000 
ど と いう よ うな DATA 文 の と き に 、 カ 
ンマ な うっかり つけ わ すれ で 、 
100 DATA 10000, 2000030000 
な ん て な っ て いる と き 、READ 文 の 
と どろ で エエ ラー に な が っ で し まう こと が 
ある の だ (変数 が 整数 型 の 場合 )。 
アウ ト オプ メモ リ 


rg (OU Of meITmOTV 


こし (しま 、 メモ り リ が た りな い 『 とい 
う パ ンコ ン の 素 喝 な の だ 。 ほ と ん ど 出 
て こない と 思う けれ ど 、 考 えら れる 原 
央 は 主 に 2 つ あ る 。 
① 前 の プロ グラ ム が 残っ て いた ! 

これ は リス ト を 取っ て 調べ べ て みれ ば 
すず すぐ わか る 。 も と の プロ グラ ムリ スト 
に な い 行 が や た ら に ある 場合 は 、 こ れ 
が 原因 。 新 し い プ ログ ラム を 打ち こむ 
と き に は 、 必 ず NEWIRETURN | で メ モ 
リ を 掃 傘 し て お け ば 、 こ ん な こと は 起 
こない (は ず だ 。 
(2 項 列 が 大 きす ぎ た ! 

配列 と は 、DIM…… で 定義 さき れる 
変数 冬 の こと 。 エ ラー の 出 た 行 番号 に 、 
DIM 文 が あっ た ら 、 そ の 直後 の 配列 変 
衝 を チェ ッ ク す る こと 、 
100 DIM A(10030) 

な ん て な っ て いる と 、 カ ッ コ の な か 


の 打ち こみ まち が い の は ず 。 多 分 、 も 
と の リス ト は カッ コ の 中 が も っ と 小さ 
いか 、 カ ンマ (,) で 区 切ら れ て いる は 
まだ 。 
三 ス マツ チ 

Tvpe mismatch 

これ は 変数 の 型 が 一 致し な いた め の 
「 変 数 の 型 」 に つい て は 、 自 習 
課題 と し て 、 こ の エラ ー を 起こ し た バ 
グ を 見 つけ る の は わり と か ん た ん 。 

エラ ー の 出 た 行 を 、 も と の リス ト で 
チエ ッ ク ず る と どき に 、$ に に 気 を つけ で て 
見 れ ば よい の だ 。 た いて い は 、$ が 抜 
け て いる か 、 別 の キャ ラク タ に な っ て 
いる か の バグ だ 。 例 えば 、 
10 AS 三 B$ 

な ん て な っ て いる 場合 は 、 も と は 、 
10 A$ーB$ 

と な っ て いる は ず 。 

アン ディ ファ イン ド 


gs UnQOefined 


ンジ ナン バー 


Ine nuUmbDer 


これ は 、GOTO 文 、GOSUB 文 で 指 
定 され た 行 番号 に プロ グラ ム が な いっ 
の 。 

10 GOTO 100 

と いう 行 で 、 こ の エラ ー が 出 た 場合 、 
まず 、 こ の 行 を も と の リス ト と 見 比べ 
る 。 こ の 行 に まち が い が な いと き は 、 
100 行 を 打ち こみ 忘れ て いる は ず 。 た 
めし に 、 

LIST100 

と や っ て みよ う 。 多分 、 な に も 出 な 
い は ず 。 も し 、 出 た ら 、 も う 一 度 10 行 
を よく 見 直 そ う 。 

サ プ ス フリ プ ト 。 アウ ト 


12 が " SUDScrlot OU 


I ョ レイ ンジ 
Of 「angG 


この エラ ー が 出 た ら 、 そ の 行 の 配列 
変 表 一 一 例え ば A( 1) と いう 形 の 数 
ーー の カッ コ の な か に ご 用 心 。 

カッ ヨ の な か に 打ち 二 み ミス が な け 
れ ば 、 カ ッ コ の な か で 使わ れ て いる 変 
数 ( 例 で は 1 ) の 値 を 決め て いる と こ 
ろ に 数 字 な どの 打ち こみ ミス が ある は 
ず 。 和 TRON な ど を 使っ て 、 じ っ くり 探 
し て くれ 。 


エラ ー。 


ワウ ディ メニ ショ ンド 


= heQlmenSioned 
arTay 


これ は 、 配 列 宣言 (DIM 文 ) の ある 行 
を 2 度 通 っ て し まっ た と き に 起こ 
ラー。 た いて い 、 罪 ほ は DIM 廊 に は な 
く 、 ど こ か の GOTO 文 で 行先 を 打ち 
あや まっ た せい 。 これ も 、TRON で 実 
行 の 流れ を 送 に た どっ て チェ ッ ク し て 
いけ ば 、 カ ンタ ン に バグ が 見 つか る 。 


他 に も 、 エ ラー メッ セー ジ は た くさ 
ん ある けれ ど 、 打 ち 込 み で 起き る エラ 
ーー は 、 だ いだい この くい だ ろう 。 

あと は 、 キ ミ が プロ グラ ム を 作り は 
じ め た と き に 、try&error (試行 錯誤 ) 
で 遇 に つけ は で いく し か か な かい ぃ 。 

で は 、 健 闘 を 祈る ! 


772 


776 


バブ 取り 兵器 その ③ 


プロ グラ ム の 流れ が わか る 不思議 な コマ ンド ! 


@TRON の 使い 方 

ジャ ジャ ー ン 。 い よい よ 、 恐 怖 の 秘密 
兵器 登場 。 バ グ の あり か が わか り に 〈《 か 
の だ ゆみ まあ 6 だ まあ の 6 く 
TRONIRETURNI 

と 入れ て みよ う 。 そ の うえ で 、 ブ ログ 
ラム を RUN さ る せる と 、 う うっ …… お ぞ ま 
し い 数 字 の 茜 列 が 出 て くる の だ 。 を そし て 、 
最後 に 今 ま で と 同じ エラ ー メ ッ セ ー ジ を 
人 ry 5 > 

数 字 に お び ぇ え ち ゃ いけ な い 。 こ れ は バ 
グ 取 り の た め の 、 貴 重 な デ ー タ な の だ 。 

実は 、TRON と いう コマ ンド は 、 ブロ 
グラ ム 実 行 中 に 通っ て いる 行 番号 を 全て 
表示 し て くれ る 命令 な の だ 。U で 囲ま れ 
た 数 字 の 羅列 は 、 行 番号 びっ た と いう わ 


け 。 

バグ は 、 エ ラー が 出る 少し 前 に 実行 る 
れ た 行 番号 の と ころ に ある 可能 性 が 非常 
に 高い 。 だ か ら 、TRON で 出 て きた 行 


号 を 、 終 わり か ら 逆 に た どっ て いけ ば 、 
も っ と 効率 的 に 打ち こみ ミス を 発見 で き 
る っ て わけ 。 

本 来 は 、 プ ログ ラム の 流れ に 関す る 見 
え ぇ にくい バグ を 発見 する た め の も の 。 写 
真 1 の リス ト を 見 て くれ 。 こ れ を 実行 き 
せる と 、 写 真 2 の よう な エラ ー が 出 た 。 
この プロ グラ ム は 、 イ ンプ ッ ト さ れ た 数 
字 と 、 その 数 字 の 2 乗 を 表示 する た め の 
プロ グラ ム (の つも り ) な ん だ けど 、 2 
乗 の 数 を よけい に 表示 し た うえ に 、 
RETURN without GOSUB in 110 

の SS 
TRON 

と や っ て 、 も う 一 度 RUN./ 今度 は 9 
を 入れ て みた 。 

する と 、 写 真 3 の よう に 行 番号 が ズラ 
ズラ ッ と 出 て くる 。 こ の 行 番号 を ナラ チ 
ラ 見 な が ら 、 リ スト を 目 で た どっ て みよ 
うう io お る た 2 ググ タ ム な は こま が りら ド に 


流れ ながら 、GOSUB の と ころ で 100 行 に 
飛び 、100 行 で GOSUB の 次 の 行 に も と ど 
る …… と いう 動き を 2 回 繰り か え し て 、 
を の 替 い で も う 一 度 110 行 の RETURN 文 
に 行き つい て いる こと が わか る 。 それ て 、 
この エラ ー が 出 た わけ だ 。 

と な る と 、 こ の バグ を な くす に は 、50 
行か ら 100 行 の あい だ に な に か 歯止め 
に な る も の が 必要 な は ず 。 50 行 に ある G 
OSUB で 100、110、 と 実行 し た あと 再び 
110 行 を と お ら な いよ うに 実行 や や め れ 
ば いい の だ 。 で こ で 、 

60 END 

と いう 行 を 追加 し て や る と 、 こ の エラ 
ー は 消え を えて し まう 、 と いう わけ 。 

実際 に 、 掲 載 き され た リスト を 打ち こん 
だ と き な ら 、 同 じ よ うに し て 探せ ば 必ず 
どこ か で 1 行 抜け て いる は ず だ よ 。 

目的 を 達成 し た ら 、 元 の 状態 に 戻し て 
お こう 。 元 に 戻す に は 、 

TROFF 

で OK。 こ の コマ ンド の 呼び 方 は ~ ト 

レー ス オ フ ” が だ 。 


テー ノ 活 用 講座 


テー プ で ブロ グラ ム を 保存 し よう / 


ひと つや つて みる と 、 身 に し みて わか る だ ろう けど 、 プ ロブ ラム を 打ち こむ お の っ て 


ホン ト に だ たいへん だ ね 。 


一 度 打ち こん だ ら 次 ら は ワン タッ チ で すむ よう に 、 ぜ ひ テ ー プ に 保存 し て お こう 。 
カセ ツ ト テ ー プ は 、 何 も 録音 し て いな い 、 新 し いも の を 使う ほう が 安全 。 で きれ ば 
コン ピュ ユー タタ 専用 の カセ ツ ト が いい ね 。 


マッ シン と テー プレ コー ダー を 接続 / 


マシ ン と カセ ッ ト テ ー プ レコ ー ダ ー 
を つなぐ で に は 、 も ちろ ん 、 カ セッ ト ケ 
ー ブ プル が 必要 。 カ セッ ト ケ ー ブ ル の 一 
方 は 、 い くつ か の 端子 を まとめ た 太い 
DIN デ ラグ に な っ て いで て 、 も う 一 坊 は 
赤 ・ 白 ・ 黒 の 3 本 の プラ グ が つい て る 
ね 。 

DIN プ ラグ は 、 マ シン の 裏側 や 側面 
に ある カセット レコ ー ダ ー” と か 、 
^CASSETTE” な ど と 表示 され た 穴 に 
接続 。 た だ し 、DIN プ ラグ を よく 見 る 
と 、 ち ょ っ と へ べ へ こん だ 溝 が ある 。 マ シ 
ン の 差し こみ 口 に も その 溝 と 同じ よう 
な 突起 が ある 。 こ の 溝 と 突起 が ちゃ ん 
と あわ さる よう に 差し こま な いと 、 入 
ら な い ぞ 。 

3 本 に 分 か れ た プラ グ の ほう は ちょ 
っ と むず か し い 。 

赤い や つ は 録音 用 ?。 つ まり 、 プ ロ 
グラ ム を テー プ に 記録 (セー ブ ) する 
と き に 働く プラ グ だ か ら 、 ふ つう の テ 
ー プ レコ ー ダ ー な ら “MIC? の 穴 に 差 
し こむ の だ 。 パ ソコ ン 専 用 の デー タレ 
コー ダー な ら CMT IN” に 差し こめ 
(まい \ い い 。 

自 い や つ は 、 テ ー プ か ら パ ソン コン に 
プロ グラ ム を 入れ る (ロー ド ) と き に 
働く プラ グ 。 ぶつ う の テ ー プ レ ョ ー ダ 
ー な ら 、 “EAR” の 穴 、 パ ソコ ン 専 用 


の デー タレ コー ダー な ら “CMT OUT* 


に 差し こめ ば いい 。 

黒い や つ は 、 リ モー トコ ント ロー ル 
用 。 パ ンコ ン か ら 命 令 を 送っ て 、 レ コ 
ー タ ー を 動か し た り 止 め た りす る た め 
の プラ グ だ 。 こ れ は “REMOTE* と 書 
か れ た 穴 (REMOTE 端子 ) に 差し こむ 。 


だ も デー プレ ヨー ダー た よう で は 、 
"REMOTE" の つい て な いも の も ある 。 
そん な と き は 、 余 計 な と こ に つっ こま 
な いで 、 は ずれ た まま に し て お こう 。 
これ で 、 パ ソコ ン と レコ ー ダ ー が つ 
な が っ た 。 次 は 、 テ ー プ の セッ ト だ 。 
ぶつ う の テ ー プ の 場合 、 最 初 の ほう 
は 白く な っ て いて 録音 で き な い の で 、 
あら か じ め 少 し 回 し て か ら セ ッ ト す る 


EAR 


ジョ イス ヌ ァ 7 カセ ッ ルル コ -7- て と TogT)CCA7 rN) 41CX REAOTE 


尺 E 和 1O7E ぅ ' 
の 才 2 

レコ - ?-g 夫 
ん と AO 在 責 3 


の な い _ 
レコ ー ダ ー の 才 谷 


の ) 
ヽ ヾ 


避 


と 
ーー 


ささ い 


と いい (コン ピュ ー タ 専用 の テー プ で 
は その 必要 な し )。 

で し て 、 カウ ンタ を 0 に セッ ト 。 デ プ 
ログ ラム を テー プ に 記録 する と き は 、 
この カウ ンタ の 目盛 の どこ か ら ど こま 
で に 何 を 入れ て いる か 、 キ チン と メモ 
を と っ て お く こ と 。 あ と で 、 テー ジグ か 
ら パ ソン コン に ロー ド す る と き に この メ 
所 が 役に立つ の だ 。 


の 


ぞ 
S“ 


ン 3 フ 
グ 2. 


米 才 2) の 人 は 
ナ 旨 答 に よっ て も が う 


クス "ラジ E 長 
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マシ ン と テー プレ コー ダー で 
プロ グラ ハム 交 換 ノ 


プロ グラ ム を テー プ な ど に 記録 する 
こと を 「 セ ー プ ブ 」、 ち ゃ ん と 記録 で きた 
か どう か を 確か め る こと を 「 ベ リフ ァ 
イ そし て で て 、 テープ か ら パ ソ ツ ョ ヨシ に デ 


ログ ラム を 移す こと を 「 ロ ー ド 」 と いう 。 
この 3 きつ を マス ター すれ ば 、 い よい 


よ パ ソコ ン 活 用 が 本 格 的 に な っ て くる 


の だ 。 た だ し 、REMOTE 端 子 の ある レ 


コー ダー と な い レ コー ダー で は 、 や り 
方 が ちょ っ と 培う の で 注意 する こと 。 

まず は 、REMOTE 端 子 の ある 場合 か 
ら 説 明 し て いこ う 。 


REMOTE 端 子 の ある テー プレ コー ダー の 場合 


ゼー プ 
(プロ グラ ム を 記録 する ) 
デー デーン を セッ ト し た ら 、 レ ヨー ター 
を 録音 状態 に する 。 こ の と き 、 リ モー 
ト 機能 の た め に 、 ま だ レコ ー ダ ー は 回 
り は じ め な い 。 パ ソコ ン か ら の 命令 
待っ て いる の だ 。 
さて 、 パ ソコ ン に 命令 を 打ち こも う 。 
カセ ッ ト テ ー プ に プロ グラ ム を セー プ ブ 
する た め の 命 令 は 、 
CSAVE` く < ファ イル 名 >“ 
ファ イル 名 > の と ころ は 、6 文 字 
以内 で キミ 自身 が わか りや すい よう に 
つけ よう 。 例え ば 、『FOR MSX SPE- 
CIAL』 の プロ グラ ム を 打ち こん で セー 
プ す る と き に は 、 ペ ー ジ 数 を < ファ イ 
NN 
の 命令 を パソ コン が 実行 する と 自 
動 的 に テー ー プ が 回 り は じ め る 。 し いばら 
Mo 
Ok 
と 出 た ら 、 セ ー ブ プ 完 了 の 合図 だ 。 
CSAVE の 命令 を 実行 し て いる あい 
だ は 、 他 の キー 入力 を 受け つけ な いね 。 
どう し て も 、 途 中 で も と に も ど し た い 
と き 性 、 を 押し た まま 、[STOP| 
を 押 そ う 。Device 1 プ O error と 出 て 、 
も と に も どる よ 。 
これ は 、 次 の CLOAD ? 、CLOAD で 
も 同じ 。 


ベリ フ ア イ 

(記録 を 確認 する ) 

さて で て 。、 デ ー ダ ププ に ほ パ ソヨン の な か に 
あっ た プロ グラ ム が 記録 され て いる は 
o で も 、 (うら 才 し た らち 、 う ま 
く 入 っ て いな いか が も し れ な い 。 ぞ で で 、 
テー プ に 入っ て いる 内 容 と パソ コン の 
メモ リ の 内 容 を つき あわ せる た め の 命 


7 7 を 


令 が ある 。 

まず 、 デ テー プ を 巻き も ど し て 、 プ ゴロ 
グラ ム を 記録 し は じ め た と ころ を 出 そ 
う 。 ん な と き 。、 デ テーブ ィ カウ ンタ が 
役に立つ の だ 。 カ ウン タ の 目盛 より 、 
ほん の 少し 前 まで も ど し て お いた ほう 3 
が 無難 だ ね 

さて 、 そ こ で 今度 は PLAY ボ タン 。 
まだ 、 レ コー ダー が 回 り は じ め な い の 
は 前 と 同じ 。 

クツ ヨシ ジン 拒 、 
CLOAD ? “< ファ イル 名 >* 

と 命令 し よう 。 

キミ が セー ブ す る と き に つけ た も の と 
同じ も の を 入れ る こと 。 大 女 字 、 小 文 
字 、 ス ペー ス の ある な し も 厳密 に 判定 
する の で 、 特 に 注意 し て お か な いと 、 
いつ まで た っ て も いう と お り に 動い て 
くれ な い ぞ 。 た だ し 、 こ の 場合 ("< ラ 
ァイル 名 >” を 省略 し て も 、 い ちば 人 ん 最 
初 に 出 て きた プロ グラ ム と 照ら し あわ 


セー プ ブ 


SS 有 ジ 記 し に 7-7 
録 状 態 に 


# に イー7" は 
(は し あび ひい 


CSAVE <7z4jM) 
と 9 こみ JRETORN 


OK し あかさ た 5 放 功 


く フ ァイル 名 > は 、 今 、 


世 て で くれ る の で 、 プ グラ ム の 頭 出し 
が 確実 に で き て いる と き は 、 フ ァイル 
省 。 を つけ な く て も が まわ な い 。 

き て 、 う まく い げ ば 。 
Found : < ファ イル 名 > 

と 表示 され 、 確 認 (ベリ ファ イ ) が 
ほじ まる 。 し ば ぱ ばら くし て 、 


Ok 
と 出 た ら 成 功 だ 。 
Found : < ファ イル 名 >" が いつ まで 


も 出 な いと き は プロ グラ ム の 頭 出 し が 
うま くい っ て な か っ た か 、 デー デレ ヨコ 
ー ダ ー の 音量 が 不適 切 だ っ た か が 下 央 。 
も うい ち ど キ チン と 巻き も ど し て 、 音 
量 レ ベル を 調節 し て か ら 再 挑戦 し よう 。 
音量 レベ ル は 機種 に よっ て 違う けれ ど 、 


3 
『 ン く ぐい べ ベリ プ アイ 
SS 7n73 ム 2 
ン 形 ま くも どす 


PLAY ホ 9 半 す 
# ド 了 -7* は ! 


回 り 1 は じ め な ぃ 


ーー Found' て みる) 
(LOAR" に 逢 3 
9 . 引 | と 必 て かり いす りく し て 
OK OK と 上 ホ か W は 放 婦 。 


8 一 10 が 適当 な 線 だ 。 音 質 も 高め に セ 
ッ ド し た ほう が いい 。 

Found が 出 て も 、 
Verify error 

どら 胃 内 らら 、 モ セーブ プ ミス 。 もう いちど 、 
慎重 に セー ブ プ を や り 直 そう 。 


キー に 
(テー プ か ら 
プロ グラ ム を 入力 する ) 


セー ブ プ と ベリ ファ イ を 繰り 返し て 、 
自作 の プロ グラ ム ・ テ ー プ を 作っ た ら 
も う 、 あ の 打ち こみ の 苦労 と は さよ う 
57 だ 。 

プロ グラ ム を 入れ た テー プ を 、 レ コ 
ーー ター に も セッ トド ト 。 入力 し た い デ プログラ 
ム よ り 前 の と ころ まで テー プ を 回 し て 
Ne の ES 
タ の 目盛 り を 記録 し て お く の だ )。 ここ 
で PLAY ボ タン を 押す 。 レコー ダー と 
パン コン が ちゃ ん と 接続 し て いれ ばば 、 
前 と 同じ よう に テー プ は 回 ら な い は ず 
だ ね 。 そ 三 で 、 
CLOAD`< フ ァイル 名 >” [RETURN | 

と 各 ち こも う 。 
FoUIGd : く プ ファ 時 

と 表示 され た ら 、 と りあ え ず 成功 。 
も し 、 こ の メッ セー ジ が いつ まで も 出 
な か っ た ら 、 音 量 を 調節 し て みた り 、 
テー プ を 確 め て みた り (スピ ー カ ー に 


7-yi レ し 図 5 
CSAVE( み る 
と 打 も こん 。 
MC 
また 擬 さ な 


ここ て NRETURNI 
提 す 


C5AVE …| 
0K 
6 


0KL お た 5 放 功 . 
ゼー プ 


(REMOTE 端 子 の 
な い 場 合 ) 


テー ブ プ が 回 り は じ め 、 


きゃ 


音 を 出す と 「 ピ ー ガ ガガガ … 」 と プロ 
グラ ム の 音 が きこ える ) し て 、 や り 直 
し て みよ う 。 レ コー ダー の 電池 が 吉 い 
と きも うま く ロ ー ド で き な い こと が あ 
る 。AC 電 源 に 切り か える か 、 電 池 を 交 
換 す る の も ひと つの 対策 。 

Found の 表示 の あと 、 

Ok 

と 出 た ら ロ ー ド 完了 。 あ と は RUN さ 
せる の み 。 

Device 1/O error 

が 出 た ら 、 残 何 な が ら も う 一 度 最 初 
か ら や り 直 し 。 こ れ は 、 レ コー ダー か 
ら 送 られ て きた 信号 が 途中 で お か し く 
な っ た と いう こと 。 デー その も の に た 
傷 が つい た り し て いる と 、 何 度 や っ て 
も この エラ ー メ ッ セ ー ジ が 出る こと が 
ある の で 、 テ ー プ は て いね い に 扱 お う 。 

だ 用 宅 。、 回 王 ド の と き に 、 

SkiD : XX 

と 男 る ニ こと が ある 。 こ ニ これ は 、XX と い 

ファ イル 名 の プロ グラ ム を 通過 し て 
いる と いう 意味 で 、 別 に エラ ー で は な 
い の で 安心 し て くれ 。 

CLOAD の あと に 書か れ た ファ イル 
名 の プロ グラ ム 以 外 は 、 み ん な こん な 
SN 9 人 民 を ば し で し まう の だ 。 だから 、 
プロ グラ ム が テー プ の どの へ ん に あっ 
た か わか ら な いと き は 、 テ ー プ の は じ 


めか ら PLAY し て や れ ば 、 次 々 に 違う 
プロ グラ ム を と ば し て 、 目 的 の プロ グ 
ラム だ け を ロー ド し て くれ る っ て わけ 。 


ロー ド 
| 7073A9 豆 めし 
@ ジ で し て PLA 人 か 9 
を 押す 。 
必 UM | 
(中 は CA% な い 


CLOAD7f る 
と 打 5- み IFETUKN 


ト Found ん f 9) 
と 測 て か りら 

し は 5 くし て .Ok 

と まれ は 区 か 


HEMOUTE 端 子 の な い レ コー ダー の 場合 


REMOTE 端 子 の な い 場 合 は 、 パ ソ 
コン に 命令 を 打ち こむ の と テー プレ コ 
ー ダ ー を 動か す と き の 順 序 や タイ ミン 
グ が ちょ っ と 違う 。 

圏 セ ー ブ プ す る と き 
CSAVE “< ファ イル 名 >* 

と 打ち こん で お いて か ら 、 テ ー プ レ 
コー ダー を 録音 状態 に する こと (まだ 
リタ ー ン ・ キ ー は 押さ な い )。 テー プ が 
回 り は じ め た ら 、 そ こ で リタ ー ン ・ キ 
ー を 押す 。 

それ か ら 、 テ ー ブ プ が 完了 し て Ok の 表 
示 が 出 た と き に 門 れ な いよ うに レコ ヨー 
グー を スト ド ト ッ クジ ずる ミミ と 。 あと は 。 
REMOTE 端 子 の ある 場合 と 同じ だ ね 


較べ ベリ ファ イ & ロ ー ド 
テー プ を プロ グラ ム の 先頭 ま で 巻き 
SG を めい で 、 
CLOAD ?^ く < ファ イル 名 >” [RETURN | 
まけ 放 、 
CLOAD “< ファ イル 名 >” |RETURN | 
と し て か ら 、PLAY を 押す 。 (セー ブ 
の と き と 順 序 が 逆 だ か ら 注 意 し よう ) 
ペリ プ フ テ イ 、 ロ 王 ド が 講 子 し て Ok が 外 
た ちら 、。 デー プス トッ プ も 記 れ ず に ね 。 


(REMOTE 端 子 
の な いり い 場合) 


フロ リフ ム 29 
8 小 し *( い かい 


CLOAD て 4 る ) 
バリ 7 ヵ ? イ 4 と き は 


PIA を 押す 


Foun4 の の 
と 汎 く か り U は 5 くん 
OK と おば 恋 , 


7 アツ 


es プロ グフ ラニ < 
入門 講座 


MSX パ ソコ ン で ゲー ム を 作ろ つ / 


MSX パ ソコ ン は 「 カ ー ト リッ ジ 、 ポ ン ! 」、 で ザ ゲーム が で きち ゃ うけ ど ご 、 ご の カー トド 
| リッ ジ が けつ ご こう 高 い 。 そ れ に 人 の 作 つ だ ゲー ム つ て 意外 と お も し ろく な い 。 そ ご で 


ゲー ム を 自分 で 作 つ て みよ うじ ゃ な いかが ! 


ログ ラム まで 案内 し ちゃ お う ! 


と いう わけ で 、 ダーム の アイ デア ガ 己 プ 


1 ゲー ハム の アイ デア を 出 そ つ / 


『 ゲ ー ム を 作ろ う ノ 」 な ん て 思っ て も 、 
いき な り パ ソコ ン に 向かっ て 、 キ ー ボ 
ー ド を た た くん じゃ 、 い つ に な っ て も 
ゲー ム は で き な い 、 い ろ い ろ な 段階 を 
踏ん で いか な く て は ダメ な の だ 。 

まず 最初 は ゲー ム の アイ デア 。 ど ん 
な ゲー ム を 作り た い の か じっくり 考え 
よ まあ 。 

戦争 も の で も 宇宙 も の で も いい けど と 、 

「 ゲ ー ム を 作ろ う 」 と 思っ て 、 机 に 向 
か っ て アイ デア を ね っ て も な か な か い 
いも の は 出 て こない も の 。 

「- ニ うい う ゲ ー ム が 、 あ っ た ら な あ 」 
な ん て 、 い つも 考え て いれ ば 、 け っ こ 
う 自然 に いい アイ デア が 浮 ん で くる も 
の だ 。 だ か ら 、「 ゲ ー ム を 作ろ う 、 ゲ ー 


ム を 作ろ う 」 な ん て リキ ん で や る より 、 
思い つき を 大 事 に する ほう が いい か も 。 
ゲー ム の アイ デア が まとまっ た ら 、 
ミ こんど は ほ は 、 学 れ が パソ ヨシ ゲー ム に な 
る の か どう か 考え な く て は な ら な い 、。 
「 ポ ー ル ポジ ショ ン な み の レ ー シ ン グ 
ゲー ム を 作ろ う ノ / 」 と 考え て も 、 現 実 
問題 と し て 、 そ れ だ け の も の が 作れ る 
プロ グラ ミン グ 能 力 が な けれ ば 不可 能 。 
BASIC の 命令 を 覚え は じ め た ば か りな 
ら 、 あ まり ハイ レベ ル な も の を 作ろ う 
と する の は と りあ え ず あき ら め た ほう 

が いい 。 

だ か ら 、 最 初 は グラ フィ ッ ク を 使わ 
ず に 「 数 あて ゲー ム 」 の よう な 、 文字 
し か 使わ な いか ん た ん な も の を 作る ほ 


うがい い 。 か ん た ん な ゲー ム を 作る こ 
と で 、BASIC 命 令 の 使い 方 が 身 に つく 
も の 。 他 人 が 見 た ら 「 く だ ら な い 」 と 
思う よう な ゲー ム で も 自力 で 作っ て み 
る こと が 大 切な の だ 。 

さて 、 こ こ で 作っ て みる ゲー ム は 、 
グラ フィ ッ ク を 使わ な いと つま ん な い 
の で 、 ち ょ こっ と 使っ て みる こと に し 
As 

ゲー ム の 内 容 は 、 大 砲 の 弾 の 角度 を , 
決め て 発射 し 、 目 標 物 に あて る と いっ 
た か ん た ん な も の 。 名 づけ て 『 オ ー ト ・ 
ギャ ノン 』。 ど うだ い 、 こ れ な ら な ん と 
な が く 「 で きそう だ /」 と いう 気 に な っ て 
くる だろ う 7 

きっ と 、 な る よ ! 


2 ゲー ハム 内 容 を 詳し < 決め よ つ / 


入 コ ア な ども を 衣 示さ せる 


[ 図 - 1 『 オ ー ト ・ キ ャ ノン 画面 レイアウト 
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ゲー ム の アイ デア が まとまっ た ら 、 
今度 は 内 容 を 詳し く 決 め る こと か 必要 。 
アイ デア が 決ま っ て 、 シ ジ シク 。 パ ソコ ヨン 
に 向かっ て プロ グラ ミシン シグ 、 なー ん て 
天才 的 な こと を や ろう と する の は も ち 
ろ ん 論 外 。 プ ログ ラム を いき な り 組 ん 
で も ロク な も の は で き な い 、 と いう よ 
り ( は プロ グラ ム が で き な い と 思っ た ほ 
うがい い 。 

や は り 、 ゲ ー ム は 徐々 に 基本 か ら 作 


り 上 ( げ て いか な けれ ば な ら な い の だ 。 
① 画 面 の 構成 を 決め よう 
まず 最初 は 画面 の 構成 か ら 決 め て み 


よう 。 画面 構成 と いっ て も 、MSX の グ 
ラフ ィ ッ ク 画 面 の 256X メ 192 ドット で 考 
えて や る の で は 、 自 由 な 発想 は 出 て 
こない 。 細 か いこ と を 決め る の は 後 
まわ し に し て 、 ま ず は 絵 を 描く 気分 
で な に げ な く や っ て みる の が 大 切 だ 。 
さて 、 弾 を 発射 し て 目標 物 に あて る 、 


と いう 点 か ら 、 図 - 1 の よう な 絵 を 描い 
て みた 。 こ れ は 、 自 分 の 基地 と 敵 の 基 
地 の 間 に 海峡 が あり 、 大 砲 で 攻撃 する 
と いう ふう に イメ ー ジ し た も の だ 。 
実際 に で き あ が っ た ゲー ム は この 段 
階 で 描い た 絵 と 異な っ て いて も 一 向 に 
か まわ な い の で 、 何 枚 も 描い て みる こ 
と が 大 切 だ 。 発想 自体 か ら 変え て し ま 
い 、 や り 投 げ の ゲー ム に し て し まっ て 
も いい 。 
② 細 か い 内 容 を 決め よう 

画面 の だ いた い の 構 成 を 決め た ら 、 
今度 は 細か い 内 容 を 決め よう 。 

特に 大 切な の は 、 ゲ ー ム の 進行 中 の 
決定 事項 を パソ コン が 決め る の か 、 プ 
レイ ギー が 決め る と か と いう こと 。 


れ を 決め て お か な いと 、 何 の ゲー ム な 
の か も わか ら な く な っ て し まう 場合 が 
ある 。 

さて 、『 オ ー ト 
1 ) 発射 の 角度 
II) 発射 の 位置 
四 ) 発射 の 速度 
の 3 点 を プレ イヤ ー が 決め られ る こ 
と に だ し た 。 こ ニ の ゲー ム は シミ ュ レ ー シ 
ョ ン ゲ ー ム っ ぽく する た め に 、 そ うし 
た の だ けど 、 仮 に 、I の 発射 速度 を パソ 
コン が 決め る よう に し た ら 、 リ アル タ 
イム ゲー ム の よう に する こと も 可能 だ 。 
炎 に ゲー ム 進 行 上 の こと を 決め な け 
れ ば な ら な い 。 例え ば 、 ど うす れ ば ゲ 
ー ム オー バー に な る か な ど だ 。 こ れ を 


> 二 ヤ アン ショ で (は ほ 、 


決め て お か な く て は 、 ゲ ー ム で は な く 、 
単なる シミ ュ レ ーション に な っ て し ま 
た 

そこ で 、 こ の ゲー ム で は 弾 の 数 を 決 
め て お き 、 こ の 弾 が な なくなっ て し まう 
と ゲー ム オ ー バ ー に な る こと に し て み 
た 。 た だ し 、 あ た れ ば あら た に 補充 さ 
稚 る と 侍 し で いあ 、 


も し 、 弾 を 無制限 に 付け て し まう と 、 


今度 は 相手 か ら の 攻撃 が な いと ゲー ム 
が 終わ ら せ に くく な っ て し まう 。 いき 


な りこ うい っ た ゲー ム を 作る の は 大 座 。 


最初 は 単純 な も の か ら 作 る ほう が いい 
の 9 誠 。 

今 の うち は 、 じ っ と が まん し て 、 力 
ば か が くし て お こう ね 。 


う フロ ー チ ヤー ト を 書い て みよ つう / 


ここ まで 考え た ら 次 は フロ ー チ ャ ー 
ト を 書い て みよ う 。 プロ グラ ム を 作る 
と いう と すぐ で フロー チャ ー ト な ん だ よ 
な / と 言い た く な る 人 も いる だ ろう 。 
そり や ゃ や 、 こ れ を 頭 の 中 で 考え られ る 人 
は 何 も 作 る 必要 は な いけ ど 、 た だ 、 め 
ん どう で も 作っ て お け ば 後 で 手直し す 
る の も ラク だ し 、 論 理 的 な 思考 の 訓練 


に も な る の だ か ら 、 ぜ ひ や っ て ほし い 。 


書い た こと の な い 人 は だ まさ れ た と 思 
っ て 書い て みよ う 。 

で は 、 フ ロー チャ ー ト の 書き 方 。 か 
ん た ん に 言え ば 四角 や 三角 が 出 て き て 、 
それ を 線 で つなぐ だ け だ 。 こ の 四角 や 
三角 も 種類 が 数 十 個 ある けど 、 専 門 家 
じゃ な いん だ か ら 、 全 部 を 覚え る 必要 
は な い 。 1 つも 覚え た く な い の な ら 、 
目 分 で 勝手 に 決め て し まう の も テ だ 。 

ここ で は 説明 上 どう し て も 使わ な け 
れ ば な ら な い の で 図 - 2 の 3 つ を 使う こ 
と に し た 。 こ れ は 普通 使わ れ て いる も 
の と ど と 同じ だ 。 


フロ ー チ ャ ー ト を 書い て みる と 、 図 
-3 の よう に な っ た 。 こ れ を パッ と 見 て 
わか る よう に 、 図 -2 に ある 3 つ 以 外 の 
記号 は 1 つも 使っ て いな い 。 これだけ 
で も フロ ー チ ャ ー ト を 書く こと が 可能 
が こと が よく わか る だ ろう 。 

この 中 に ゲー ム の 細か い 内 容 を 決め 
た と き に な か っ た も の が た くさ ん ある 
が 、 こ れ は 、 ゲ ー ム の 内 容 に は 関係 な 
く 、 必 要 と され る も の だ 。 次 の 項目 で 
は これ に つい て も 詳し く 説 明 し て いく 


の で ちょ っ と 待っ て ほし い 。 


端子 
開始 、 終 了 、 停 止 な ど 、 フロ ー 
チャ ー ト の 端 を 表す 。 


NT 


判断 
条件 に よっ て 、 分 岐 させ る 
た めのう 判断 。 


プロー チャ ー ト の 記号 


図 -2 


キャ ラク タ の 定義 


キャ ラク タ の MOVE 


光 選 ③ 
ゲー ム オ ー パ バー 処理 


人 4 チャ ヤー ト に そつ て プロ グラ ミン ン ル 


フロ ー チ ャ ー ト が で きた ら 、 今 度 は 
プロ グラ ミン グ 、 こ れ で や っ と パソ コ 
ン が いじ れる と いう わけ だ 。 

さて 、 こ ニ こ で 交 字 どおり ラフ 呈 一 チャ 
ー ト で 書い た も の を プ ブロック ご と プロ 
グラ ム に 変え て いく わけ だ 。 ラフ 旧 一 チ 
ャ ー ト が 正しく 書け て さえ いれ ば 、 作 


っ た プ ブログ ラム も 当然 正しく 動作 する 
は ず 。 こ こ で フロ ー チ ャ ー ト の あり が 
た 味 が わか る だ ろう 。 
① 初 期 設 定 

初期 設定 は 、 プ ログ ラム を 作り 始め 
る と き に 、 必 ず や ら な く て は な ら な い 
も の だ 。 


ニー で 決め る こと は 、 出 力 す る スク 
リー ン 、 変 数 の 初期 値 な ど 。MSX の ス 
クリ ー ン は 、 
1 ) 40X24 文 字 の テキ スト 
II) 32 メ 24 廊 字 の テキ スト 
還 ) 256 メ 192 ド ッ ト の グラ フィ ッ ク 
IV ) 64 メ 48 ド ッ ト の グラ フィ ッ ク 


"テー ポー ロ \N SV ヽ + ボ ・ テ ー」 6 うー 隊 
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の 4 つが あり 、 プ ログ ラム 文字 が 入 
で きる の は 、 1 ) と 下 )、 ス プラ イト 
が 表示 で きる の が TII )、 還 )、V ) な の で 
ここ で は II) の テキ スト モー ド を 使用 
の 必 ほし だ 。 

変数 は 初期 値 が 0 で いい も の は 設定 
する 必要 が な い (BASIC は RU 
を 実行 すれ ば 変数 を すべ て クリ ア す る ) 
の で それ 以外 の も の だ け 設 定 し て お け 
ぽい い 。 


で で 
RD T] 


1 の XX ジョ キ セ w テ ィ 
2 の 9 KEY DFF :SCREEN 1 。 の iCULHR 15。4 。43CLS 
G ゆ 本 人 = づ 5S ビ = の iL ビー1 


〈⑦② キ ャ ラク タ の 定義 

キャ ラク タ を スプ ライ ト に 定義 する 
に は 、 ま ず キ ャ ラク タバ パタ ー ン を 方 眼 
紙 に 描き 、 
SPRITE$() 三 CHR$() 十 CHR$() 十 - 

と や れ ば いい の で けっ こう か ん た ん 
だ が 、 パ ター ン を 考え る の が な か な か 
大 変 。 こ れ に は 他 の ゲー ム の キャ ラク 
タ を 参考 に し て や っ て も いい だ ろう 。 

キャ ラク タ の パタ ー ン は 図 -4 に 『 オ 
ー ト ・ キ ャ ノン 』 の パタ ー ン 0 の 例 を 


あげ て みた 。 こ れ を デー タ に 入れ て お ・ 


き 、 読 みこ むように する 。 


CHR $ (24) CHR$(255) 
CHR $ (126) CHR$ (126) 
CHR $ (122 ) CHR$(126) 
CHR $ (253) CHR $ (24) 


と 『 オ ー ト ・ キ ャ ノン 」 の 
4 キャ ラク タ ・ デ ー タ 例 


49 "kw キャ ラ 22 ノ テイ キ " 
Sg FOR 1= の TO 6 
6 の FOR J=1 TO 日 


7@ _ READ CA 

B の GE ま =SE ま +CHR ま (CR ) 

9 NEXT 

1 の の SPRTTE ま (1 ) =SE ま :GE ま ="" 
11 の NEXT 


2 DATA 24 ,126 。122 ,253 。255 。126 ,126 。24 。3 
4 。15。73 。43』31 。95 。63 。255 

13 の DATA 132.。1 の 5 。146 212 。253 。254 。255 。255 
7 。4 4 。7。7。254 。146 。254 

14@ DATA 254。146。254 。254 。146 。254 。254 。146 
,255 。147 。147 ,255 。255 。147 。147 ,255 

15 の DaTA 255。147,147。255 。255 。147 。147 ,255 


③ 画 面 の 表示 

画面 に は 上 の ほう に スコ ア な ど を 表 
示し 下 の ほ うに キャ ラク タ を 表示 させ 
る 。 な る べく 、 画 面 構成 を 描い た と き 


7 ウッ 


の 図 に 近い も の に も っ て いく 。 
定義 し た キャ ラク タ を 表示 する の は 
PUT SPRITE 命 令 を 使っ て お こ な う 。 


16 "XX "メッ ヒョウ だ 

17 の LOCATE@ 。1 PRINT USING "LEVEL 音 幕 SCO 
RE 村人 社 SHOOT 香り sLEsSC iTa 

18 み LOUCATE の 。18iPRINT" 

に こと ブウ た で さく 2 


EL。 
19 の BX=INT(RND(1) *15Q) + 日 4 :BY=139 
2 の の PUT SFPRITE 2。(BX 。BY-B) ,。12.3:PUT SPRI 
TE 3。(BX+。BY-8) 』12,5 
21@ PUT SPRITE 4。(BX。BY) 。12。4:PUT SFRITE 
S ,。(BX+B。BY) 。12。6 
22 の PUT SFPRITE 6,(B。139) 。1 。 の 


〈④ キ ー の 入力 

ここ で は ゲー ム の 内 容 を 詳し く 決 め 
た プレ イヤ ー が 決定 する 項目 を 入力 さ 
せる 。 つ まり 、 位 置 、 角 度 、 速 度 の 3 
点 を 入力 させ 、 決 め ら れ た 範囲 外 だ っ 
た ら も う 一 度 入 力 さ せる よう に する 。 
最後 に 入力 し た も の で 本 当 に いい の 
か 確認 させ る よう に する 。 


23 の /\X%X キー ノ ニュ ウリ ョ の 

24 み ウ SPRITE ONsUN SPRITE GUSUB SW の 

25@ LOCATE ゆ 。19:INPUT "イチ (1- づ 3 の) "PL ま 
26 の PL=VnL (PL し ま ) : IF PL= の THEN 25 み 
27 の IF PL く 1 HR PL>3g THEN 25S の 

289 PUT SPRITE 6,(B+PL 。139) 。1 。M 
29 み LOUCATE の 。2 の INPUT "カカ 2 ト " (5ーB5) 
3 の RAQ=VAL (RQ ま ) :IF Rn= の THEN 29 の 
31 の IF RA く <S OR KA>B5S THEN 29 み 

329 LUCATE ゆ 。16:PRINT USING " 柱 香 ""sRA 

33@ LODCATE ゆ 。21 』INPUT "ソフ ウト" (5ー-2 の 9) "'sSHU 


" ョ R 谷 ま 


34 の SU=VAL (SU ま を) :IF SU= の THEN 339 

35 の IF SU<5 OR SU>2Q の THEN 339 

369 LDCATE @,22:INPUT "コレ テ * イイ テ "スカ (Y or 
"jHa 


37 の IF HQ ま ="Y" OR HAS ま =" ッ " THEN 38@ ELSE 


キャ ラク タ MOVE 

入 才 きれ た デー タ を も と に 、。 キ ャ ラ 
クタ を 動か す 。 こ の 式 の も と に な っ て 
いる の は 、 
メー ッ cos の 
Y 三 ゥ sin 96t 一 生 gt< 
で 、 高 等 学校 まで の 範囲 で 考え た 放 物 


- 線 だ 。 た だ し パソ コン の 三角 関数 は ラ 


ジア ン で する ニニ と 。 度 で 入力 し た も の 
は 変換 が 必要 だ 。 


3 の ^xxx キャ ラフ MOVE 

39@ RA=(2*3.1415xRA) /36 

49w S=SIN(RA) :C=CDS (RA) 

41 の FOR D= み TO 2 STEP .5 

42@ MX=SUxDC/+FL+ 昌 

43w MY=139-(SUxhxGー .5x9 .Bx ( ロ ^2) ) 

44@ IF MY>139 THEN PUT SFRITE 6,(MX 。139) 
1 BUT 49 の 

45 の IF MY<Q THEN PUT SPRITE 6。』(16。 の ) 。 の 。 の 
:GDTD 47 

46@ FUT SPRITE 6。(MX MY) 。1 の 

47@ IF MX>247 THEN PUT SPRITE 6,(16。 の ) 。 の 
の :GDTD 49 の 

48 NEXT 

49@ FOR 1I=@ TO SiNEXT iBDTO SS 


(⑥ 往 げ 突 の 判断 

任 T 突 の 判断 は スプ ライ ト が 重なっ た 
と き の 割 り 込 み 、ON SPRITE GOSU 
B を 使用 する の で 、 判 断 自 体 は パソ コ 
の が お こ な が うこ と を に な る 。 選 ご で は ほ 衛 
突 後 の 爆 発 パ ター ン の 表示 な ど を PUT 
SPRITE で お こ な っ て いる 。 


ちの の ^%% ジョ ウト リー nz グッ 

51 の PUT SPRITE @。(BRX .RY) 。6。1:PUT SFPRITE 
1 , (BX+B 。BY) 。6。2sFOR T= の TOD SOgiNEXT 

52 PUT SPRITE の 。( の 。@) 。@。1:PUT SPRITE 1。 
(8 。@) の 。2 1SPRITE OFF 


(〈⑦ ス コア の 加算 、 次 の 面 の 初期 設定 

スコ ア の 加算 は 残り の タマ の 数 に よ 
っ て 変る よう に し 、 次 の 面 に 移る と き 
は タマ の 数 を 最初 と 同じ に する 。 


Sd の XXX メ コ ア ノ カサ ッ 
ご 4 ゆみ SC= ニ SC じ +1+TA LE=LE+1 kTQ=d sBUTH 16 み の 


⑧ ゲ ー ム オー バー の 判断 

衝 * 突 が 起き な か っ た 場合 は ここ に 飛 
ぶ 。 こ こ で は 、 タ マ の 数 の 減算 と それ 
に よっ て 、 ゲ ー ム オー バー に な る か 、 
続行 する の か を IF 文 で 判断 させ て いる 。 


らら 5 "%%# ガー ム オー ペー ブフ ロッ ゲ ラ 

56 ウ の TA=T 人 一 1 

S7 LUCATEW 。1 5sPFRINT USING "LEVEL 提 寺 SCO 
RE 音韻 社 SGHHOT "saLEiSCsTa 

SBg FUT SFRITE 6。(B。139) 。1 。 ゆ 

S9 ゆ IF TAQ> ウ THEN 23 み 


⑨ ゲ ー ム オー バー の 処理 

⑧ の 判断 で ゲー ム オ ー バ ー と な っ た 
場合 、 こ こ に 飛び 画面 中 央 に 「GAME 
OVER」 を 表示 させ 、 も う 一 度 ゲ ー ム 
を や る の か を た ず ね る 。 


6 /※%※ グー ム オー バー / ショ リ 

61 ゆ ウ LUDCATE B.BsFRINT "GAME OUVER" 

62 の LHCATE 3。1 の ikINPUT "モウ ィ テ チト" ヤリ マス カ (Y oO 
r N) " #SE ま 

63 ゆ ITF SE ま ="Y' OR SE ま =" ッ " THEN_ RUN 

64M _ SCREEN 1sKEY HN 

6Si ENL 


これ で フロ ー チ ャ ー ト か ら 、 プ ログ 
ラム へ の 移行 は 終っ た が 、 実 際 に パソ 
コン に 向かっ て 組ん で いく と いろ いろ 
な 問題 が な 生じ て くる 。 こ れ を 解決 し な 
が ら プ ログ ラム を 作っ て いっ た の だ が 、 
詳し いこ と は リス ト の 説明 を 見 て ほし 
い 。 


5 そし て こん な ゲー ム が で きま し だ / 


で き あ が り は 、 写 真 を 見 て くれ 。 大 
砲 の 絵 は ち ょ っ と 難し そう な の で あき 
ら め て 、 弾 だ け に し た 。 英 の 基地 は 、 
ビル に し て 、 痛 景 も 省略 。 

実際 に ゲー ム を 作っ て いる と 、 こ れ 
より も も っ と 大 幅 に 了 予定 が 狂う こと っ 
て よく ある ん だ 。 

難し そう な の で あき ら め る こと も あ 
る し 、 定年 より も も っ と すず すい ゲー ム 
伺 が っ で し も まや た M。 

も ちろ ん 、 難 しい から と いっ て すぐ 
あき ら め る の は よく な い 。 で も 、 こ の 
『 オ ー ト ・ キ ャ ノン 』」 は プロ グラ ミン 
グ 例 と し て 短い も の に し た か っ た の で 、 
ME の の で カン バジ し そそ ね 。 

さて 、 ゲ ー ム の 遊び 方 。 

RUN さ せる と 、 セッティング の デー 
タ を きい て くる の で 、 デ ー タ を 入れ 、 
り タ ター シン シン ・ キー を た だ たく 。 だ し 、 カ 
ッ コ の な か に 示さ れ た 範囲 内 の デー タ 


し か 受け つけ な いよ うに な っ て いる 。 
位置 ・ 角 度 ・ 速 度 ( 強 さ ) を 入力 し 
お わっ た ら 、 セ ッ デ ィング が これ で い 
いか どう が きい で くる 。 Ok な ら 、Y。 
や り 直 し た いな ら 、N を 入力 すれ ば 、 
何 度 で も セッ ティ ング の 修正 が で きる 。 
最後 で Y を 入力 する と 、 発射 / あ 
た れ ば スコ ア を あげ て 、 は じ め か ら 。 
は ずれ れ ば 、 セ ッ テ ィ ング や り 直 し 。 
この と き 、 前 に セッ ト し た デー タ が 
その まま 画面 に 残っ て いる の で 、 修 正 
し だ いと ご ろだ けけ 直し て で て 、 あ と は り タ 
デン ャ キー を 押す だ け で いい の だ 。 
3 回 は ずれ た ら 、 ゲ ー ム ・ オ ー バ ー。 
単純 な ゲー ム だ けれ ど 、 ゲ ー ム 作り 
の 基本 は だ いた い 押 さえ て いる は ず 。 
も う 一 度 、 フ ロー チャ ー ト か ら 見 直し 
て 、 プ ログ ラミ ング の や り 方 と コツ を 
つか ん で (ほし いね 。 


変数 リス ト 


オー ト ・ キ ャ ノン の プ ブログ ラム 


プロ グラ ム の 説明 

① 初 期 設定 。 フ ァ ン クシ ョ ン キ ー の 削 、 
色 、 変 数 の 初期 値 を 決め て いる 。 

(② キ ャ ラク タ 定 義 用 ルー プ 。 外側 は パタ 
ー ン 番号 、 内 側 は ドッ トバ パ ター ン の 数 に 


対応 し て いる 。 の SM FUR fjf=w TOU 6 

⑧ キ ャ ラク タ ・ デ ー タ の 読み こみ 。 デ ー 6 の FOUR JJ=}1 TO BB 

タ 文 に ある キャ ラク タ ・ デ ー タ を 読み こ @[ 79 READ CA 

か 

.、。。  ー、, _ の ⑳[ BB GE ま =GE ま + じ HR も を ( じ 全 ) 

(《④ デ ー タ の 結合 。 読み こん で きた キャ ラ 

クタ ・ デ ー タ を 結合 させ て 、 縦 8 ドッ ト 還 L9@_NEXT 

に する 。 ⑬| 1 SPRITE を (1 ) =SE ま :GE ま = リリ 
⑤ 内 側 ル ー プ の と じ 。 60 行 に 対応 。 の [| 119 ウ NEXT 


(⑥) ス プラ イト 定義 。 結合 させ た デー タ を 
スプ ライ ト パ タ ー ン に する た め に SPRIT 
E$ に 入れ る 。 


=aoo` 


ぇ 用 


9 
⑩ 


⑫ 


1 の 
2 の 
9| 35 
49 


/ 着 若 基 ヨ キ ヤセ ゅ ティ 
KEY ロ FFiSCREEN 1。giCOLUR 1S。4.4: じ LGS 
TQ= づ 3 :5 じ = ウ LE デ 1 

7 半 基 基 キャ ラウダ / ティ イキ" 


12@ HATA 24 。126 122。253 。255 。126 。126 24 3 
4 。15 の 』。73 。43 。31 ,95 。63 。255 

13 DATA 132 1 の 5 。146 。212 。253 。254 。25S 。 2 
7 。4 4。7。7。254 。146。254 

149 IATA 254 。146。254 。254 。146。254 。254 。146 
,255 147。147。255 。255 。147 。147 。255 

15 LATA 255。147。147 。255 。255 147 147 。255 
16 の "xx カリ メン ヒョウ = バ 

17 LUCATEM 。1 』PRINT USINB "LEVEL 提 村 SCO 
RE 揚 提 福 BHUUT 昔 "LEsSCiTA 

18w LUCATE ゆ 。1 ヨ PRINT" 


[| 
⑩| 19M BX=INT(RND( 1 ) *15) + ロ 4 :EY=139 


2 PUT SGPRITE 2。(BX 。BY-B) 。12.3sPUT SPRI 
TE 3。(BX+ 昌 。BY- 日 ) 。12.。5 

21 PUT SBPRITE 4,』(BX 。BY) ,12。4iFUT SGPRITE 
5 。(BX+ 昌 。BY) 。12。6 


ん ん 」 


PUT SGPRITE 6,( 日 。139) 。1 。 
/※% え キー ノ ニュ ウリ ョ フ 
SPRITE UN:sUN SPRITE GOSUB gw 

25m LOCATE の 。19』TINPUT "ゴチ (1-3m) "iPL ま 
| ze PL=VAL (PL まま ) =TF PL= THEN 25W 

IF PLS1 DR PL>3 THEN 25 

PUT SGPRITE 6。』(B+PL 。139) 。1 。 の 
LOCATE 。2 ゆ isINPUT "2 ト " (コーB5) 
RA=VQL (RA ま ) :TF RA=W THEN 29w 
IF RAQ<5 UR RA>BES THEN 29 の 
LOCATE @。16:PRINT USING " 拉 持 " ョ RA 
LUCATE の @。21 :INPUT "ソト" ( 呈 -2 ) 


” ョ ド R 伯 玉 


L s5U 


ら U=VQL (SU ま ) :TF BU= THEN 33M 

IF SU<5 DR BUY2QM THEN 33 の 

LOCATE の 。22:TNPUT "コレ テ " イイ テ " ス カカ (Y or 
N)  " 』Ha* 

IF HQ ま ="Y" DR Ha ま ="y" THEN 3Bm ELGE 


7%%※ キャ ラフ 2 MOVE 
RAQ=(2x ヨ .1415xRA) / コ 6 中 
=GIN(RA) : じ =CDS (RA) 
FUR = TU 2 GTEF .5 
MX=SUxLixC/5+PL+ 日 
MY=1 コ 39-(GUxLixー . 呈 *9 . ヨ * (“2) ) 
44 IF MY>139 THEN PUT SPRITE 6,(MX 。139) 
⑲| 1.giBDTU 49M 
45 IF MY< THEN PUT SFPRITE ら 6。』(16。 の ) 。 ウ 。M 
@| .Gnro 47W 
@ し 462 FUT SPRITE 6。(MX 。MY) 。1 
47 1F MX:247 THEN PUT SPRITE 6。(16。 み ) 。M 
。Q BUT 49 


@L48M _ NEXT 
⑳⑩ し 49 FOUR 1=W TO SiNEXTgBUTOU SSM 
コル ヨウ トリ ーーn フ プン 


1 PUT SFRITE 。(EX 。BY) 。6』1 :FPUT SFPRITE 
1 。(BX+。BY) 。6。2iFUR 1= み TO QiNEXT 
2 FUT SFRITE (4 の ) 。 ウ 。1 siFUT SFRITE 1 。 
(日 。 ウ ) 。 ゆ 。2 SFRITE ロ FF 
3 久 区 マコ ア / カサ 
@| 54 SC=SC+1+TA iLE=LE+1 : Ta=3 siGBHTD 16 
后 呈 ガリ ー ム オー ボー フーn フ タッ 
@L 56 み TaQ=Ta-1 
7 LUCATE 。1 iFRITNT USING "LEVEL 提 村 SCO 
⑨⑯| RE 杜 半 SHOUOT #"iLEsSCiTA 
@| SB PUT BPRITE 6。(B。139) 。1 , 
@ し 59 IF Tag THEN 23M 
6 届 /K% 共 テー ム 寺 ー ロ バド ー ノ = ョ リ 
@| 51 LUCATE BBiPRINT "GAME OVER" 
訪 LUCATE 3。』1:TINPUT "モウ イチ ト " ヤリ マス ヌカ (Y oO 
@ 


" N) "』SBE* ま 
63 IF SE ま *="Y" UR BE ま ="y" 
64 SCREEN 1:REY ON 
⑨| 。5 ENL 


THEN RUN 


7 ウタ 


(⑧ キ ャ ラク タ ・ デ ー タ 。 1 つの デー タ が 
横 8 ドット を 表し 、8 つ で 1 つの キャ ラ 
クタ に な る 。 

⑨ 用 字 デ ー タ の 表示 。 画面 上 部 に レベ ル 、 
スコ ア 、 残 り の タマ 数 を 表示 する 。 

⑩ 地 面 の 表示 。 

⑪ 英 の 基地 の 座標 決定 。 敵 の 基地 の 位置 
を 乱数 に よっ て 決定 し て いる 。 

〈⑫ 英 の 基地 表示 。 

⑬) タ マ の 表示 。 

⑪⑬》 ス プラ イト 割り 込み 許可 。 

⑮⑲ 位 置 の 入力 。 位 置 の 入力 と 入力 値 の 真 
偽 判 断 。 

⑯ タ マ の 表示 移動 。 

⑰ 毅 度 の 入力 。 角度 の 入力 と 入力 値 の 真 

偽 判 断 。 

⑱ 衣 度 の 表示 。 

〈⑲ 速 度 の 入力 。 速 度 の 入力 と 入力 値 の 真 

偽 判 断 。 

⑳ 入 力 値 の 訂正 。 

⑳ 度 、 ラ ジア ン 変 換 。 

⑳k サ イン 、 コ サイ ン 計 算 。 

3 時間 用 ルー プ 。 時 間 経過 の た め の ル ーー 

ジグ 。 

⑳》 タ マ の 座標 計算 。 

⑳) タ マ の 着地 。 タ マ が 地面 に 着い た と き 

の 処理 。 

⑳W タ マ の 消去 。 タ マ が Y 方 向 に 対し 画面 

を 越え て し まっ た と き の 処 理 。 

タマ の 軌跡 表示 。 

⑳⑳9 タ マ の 消去 。 タ マ が X 方 向 に 対し 、 画 

面 を 越え て し まっ た と き の 処 理 。 

⑳ 時 間 用 ルー プ と じ 。 

0 ウェ イト 用 ルー プ 。 

爆発 パタ ー ン 表示 。 

@) ス コア 加算 、 レ ベル アッ プ 、 タ マ つ め 。 
@⑧⑳ タ マ を 減ら す 。 は ずれ た 時 に タマ を 減 
ら す 。 

@ 有 文字 デー タ 表 示 。 

9 タマ の 表示 。 

ゲー ム オ ー バ ー の 判断 。 

ゲー ム オ ー バ ー の 表示 。 

9 リプ レイ の 判断 。 

@9 初 期 モ ー ド 設定 。 も と の モー ド に も ど 

の 


@ ブ オリジ ナル 全 / Dragon 


GR ノ し 赤 進む ほど に 迷う ほど に 、 画 面 の 中 に 入り こん で し ま う 感 覚 。 
oi ああ 、 あ の 壁 に ハシ ゴ が あっ て 、 全 体 を 見 渡せ た ら ……。 
ハン シゴ は な いけ ど 、 と きど き 地 図 が 落ち て る こと は ある の だ 。 
こと が ある 。 こ れ を ひろ うと 、10 秒 間 


だ け 、 迷 路 全 体 と 自分 の 位置 
が 見 える 仕組 み だ 。 


移動 は カー ソル ・ キ ー ま た は ジョ イ 
・ ス テイ ッ ク グ 。 
~ 上 ” に 押す と 、 前 へ 進み 、 
す と 回 れ 右 し て 後ろ を 向く 。 
こ 注 意 。 パッ ク は で き な い の だ 


だ だ の 迷路 じゃ つま ん な い 、 と いう 
こと で 、 本 誌 特製 の 3 次 元 迷 路 登 場 。 
ふつ う 、 迷 路 と いう の は 全体 が 見 わ 


~ 下 "を 押 
ここ ん と 


ンク 2 


だ た せる も の だ けれ と ど 、 3 次 元 迷 路 と な ヾ 下 ? を 押し て も 、 
る と 、 今 、 自 分 の 向い て いる 一 部 分 し 人 //// 
か 見 えな い 。 だ か ら 、 本 当 に 迷宮 の な 人 家 の 天 " 6 
か へ 入り こん で し まっ だ よう な 、 ゾ ク それぞれ 左右 N 
ゾク し た 興奮 が 味わえ る ぞ 。 の 方 向 を 向く 

だ けけ だ の だ 。 

迷路 は 北西 角 が 
スタ ー ト て で 南東 の 角 


迷路 の 壁 の 有無 等 
現在 位置 
現在 位置 保存 用 


が ゴー ル 。 画面 の 右 
端 に 方 位 が 表示 され 
て いる の で 、 方 向 音痴 
て 6 ハン ディ は な い 。 
迷路 を 進ん で いる と 
と さと き 地 図 を ひろ う 


ご -D MAZE 


1 SCREEN 1 。2 sgMIUTH 3 は MiEEY DFF 

2 PEFTNT a-S』U-Z iCDLHR 155。4。7 

3 [ITIM M(3m。22) 。HX(7) 。hY(7) 

4@ LEFFNM(A) =M(X+LIX() xD 。Y+HIY (RA) *B) 
mLY() =ー1 :HX(1)=1 ghY(S) =1 :LIX(3) =ー1 
6 HIY(4)=ー1 :HX ( 呈 ) =1 ghY(6) =1 :IX(7) = ニー1 


ai 7 FDR J=1 TU 6:M ま =""sFHR エニ 1 TD 32 
B REAH ま : 愉 = 内 本 キ 上 CHR ま (VQL ("H"+ じ ま ) ) 
DX /DYW) | 全幅 の 増分 9 _NEXT SFRTTE ま ( ゴ ) = 内 ま sNEXT 
O 定義 関数 用 次 数 1 ソーーー MAEE MAZE ーー 
THLB | 時 間 用 人 数 11 SCREEN 1 :CLG 
J ルー プ 用 カウ ン ツ 12 LHCATE 1。BgFRINT "2 イロ くせ お ぶら 
料 : 迷路 抽 男 用 左右 通 13 み LUCATE 。14 : FRINT "Count が "に な る ま て " 
除 プ フ ブ まっ て 。 " 
V.N 迷路 座標 算出 用 変 14M LOCATE 11 。16』FRTNT "Couunt=" っ 次 リ 
数 1 FUR 1T= TO -INT(TIME/256) x*256+TIME 2 イネ 
16 M=RNLI( 1 ) :NEXT ジ は 


迷路 指 画 時 座標 距 
離 


員 ノー ン 変 数 


fi 


1 7 FOURI=MTO3M EMH( T 。) =1 5M( 1 。22) =1 sNEXT 
18BA_ FOURT=1TUS1 iM(。1) =1 iM(3M 。T)=1 sNEXT 


の 
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@ 3-D MAZE の つづ き 


19MM X 
eMM X 
=1M Y 
MM 
< づ M 
eMM 
ご 分 
iM 
とら 6MW 
< /M 
<M 
<7M 


ョ イニ マビ ニー139 8 ロニ 2 ョ IM (2 で) =1 giGUTO 4M 
NT(RNL( 1) %14 二 1 ) % ど だ 
NT(RNLI (1 )%1M+]1 ) % ど 
IF M(X。YT)=MM THEN MM 
IF FNM(M)xFNM(1) FNM(E)xFNM(3) THEN 


0 
1 
1 


M=RNLI( 1 ) *4:TF FNM(M) 
M(X+HX (MM) 。Y+LIY (M) ) =1 
X=X+LIX (M) *2 :Y=Y+LIY (M) *G gM(X 。Y ) =1 

= ビー1 siLUCATE 17。16:PRINT 

IF CM THEN 23 

じ ま = じ HR ま (17) キ "  " 

3 FUR 1=1 TO 呈 sM(INT(RNLI( 1) *14+1) *2 。TN 
T(RNLI( 1 ) *1+1 ) *2) =2 giNEXT 

31 の ソバ ーーー LHRAM MAZE ーー 

GCREEN 2.:X メ = ニ 2 ェ イニ 2 ミロ ー2 : ロ =1 :T1ME ビ = 

PUT SPRITE 1 。(21。9) 。1 呈 。1 

PUT SGPRITE 2。(23w 49 み ) 1 42 

PLS :XX=X YY=Y 

PUT SPRITE 3。(222。115) 。11 Td 

し =FNM (H+3) :IF L THEN RAM"EM1m。16R16 
Bh159L16" ELGE LIRAM"BM1M。AF16BL1 9B16" 
38 R=FNM(L+1) sTF R THEN RAM'EMG1 。16L 1 
6Bh159R16" ELGE RAM"EBM21 AB16BLI19F16" 
39 以 ソ =16』N=W 

4 の の り =V+N :N=32ーV/3 :X ニ X+LIX(L) :Y=Y+HY(D) 
41 の =191 一 V*2 1=V+ 1 リフ テリ ーN 2 ロロ = ミウ 1 一 
42 の UN M(X 。Y)+1 BUTH 6 の 。44 。43 。44 

43 LINE( 15 ローN/3 。191 一 りーN/3) (15+N/3 。191 
ーV) 。13。BF iFRESET(M。W) 。15 
44 IF ABS(X-XX) +ABS(Y-YY) : 
45 の RAM'EBM=U1 』 = リョ 

46 IF FNM(H+3) THEN 49M 
47 み IF L THEN LHRAM"NLI=U』" ミレー 以 

48 の RAM'NF=N 』BLI=UiE=N 』" BUTU 5 
49 の の TIR "=U ミリ =N iR=N BU=UG ョ し =N "ミレー1 
5 RAM'EBM=U3 』。= ソ ョ " 

1 IF FNM(h+1) THEN 554M 

2 愉 TF RR THEN RAM"NLI=U』" sR ニ = 

53 RAM"NB=N iBH=U iH=Ni" EGOHTD 4 の の 但 
呈 4 LRAM'TLi=U isU=N ig し =N iBU=U2 iR=N 』 "ER= ニ 1 
呈 BUTU 4 
6 以 TIRAM"BM=U1 』 』= リ ョ ュ F=U BU=U *B=U ョ " 
7 IF L THEN HRAM"NU=U *" 
5B IF R THEN LRAM"E=L iLI= 
品 9 BUTU 63W 


THEN 4M ぬ 


"6 THEN S6M ぬ 


6 


由 』" 


6 のみ 以 LRAM"EM=U1 』」= リ iR=U iELI=U ョ ヒデ リョ リ 

ら 61 IF L= み THEN LRAM"NU=U ョ " 

6Z 四 IF R= 居 THEN HRRMTR=UiU=U si" 

63 XXXsY=YYsIF M(X。Y)=2 THEN 71 

64 以 M(X 。Y) =3:TF X+Y=4 日 THEN 5 

65 の ーー MOVE ニーー 

66 以 内 =STITCF () OR STICE(1) 

67 N=(M-1)*(M _ MOL 、S) :IF N THEN =(H+N/2 
) MOL 4:BUTU 35 
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WW 


NN NN 


0 『 ん 


10^ 60 


70 90 
110 て 140 
150 て 160 
170 て 190 
200-220 
230 


240 て 260 
270 て 280 
290 
300 
320 
330^340 
350^360 
370-380 
390 て 420 


430 
440 


450-500 
510^550 
560^590 
600^620 


630^640 
660^680 


ーーー デ 


変数 や 画面 の 初期 設定 。 

スプ ライ ト パ タ ー ン の 設定 。 
迷路 作成 中 の 画面 表示 。 
乱数 を バラ バラ に 乱す 。 
迷路 用 変数 の 初期 化 。 

穴 の あい た 場所 を さがす 。 

2 ブロック 先 が す べ て 開通 し て い 
れ ば 200 行 へ 飛ぶ 。 
任意 の 方 向 へ 穴 を 掘る 。 
迷路 用 カウ ンタ を 数 える 。 
迷路 地図 用 の 文字 変数 設定 。 
迷路 上 の 5 ヵ所 へ 地図 を 置く 。 
ゲー ム 開 始 の た め 変 数 初期 化 。 

「 方 向 」 を 画面 上 に 書く 。 
画面 を クリ ア し 、 方向 を 書く 。 
自分 の 両側 の 壁 を 描く 。 
変数 を 設定 し 前 面 の 状態 に より 各 
処理 ルー チン へ 。 
地図 を 迷路 の 床 に 描く 。 

先 が 識別 で き な い よう な 距離 か を 
判断 する 。 

壁 の 左側 を 描く 。 

壁 の 右側 を 描く 。 

前 面 が 識別 で き な い よう に 描く 。 
前 面 が 行 ミ 止ま り で ある こと を 描 
ん 。 

移動 し た 場所 に 応じ て の 処理 。 
ステ ィ ッ ク を 読み 込み 、 方 向 を 変 
える 場合 は 変え て 迷路 表示 。 


ンー 


NN NN 
で 


IF <>1 THEN 6 ら 66 の 690 て 700 前 進 で きれ ば 前 進 。 


IF FNM(D)= の THEN BEEP siBDTO 66@ 710~770 迷 路 内 で 地図 を 見 つけ た 時 の 負 時 。 
X=X+DX () :Y=Y+hY (h) :iBDTU 35 の 4 拉 人 eehS204 
FUT SPRITE 1 。(m。2B) 。 の 。1 50800 5 ジラ 2 あこ 
SCREEN 1 』sPRINT "あす "を つけ た し し 0 ョ T=TIME 1000i080 の 次 プ ライ トド パ パ ターン: 
BUSUE 7BMsPRINT "1 の 秒 か ん た " け すれ る よ 。" 1040 ご 1070「 北 」 の スプ ライ ト パ タ ー ン 。 
LUCATE X-1 。Y sPRINT CHR ま (176) 』 1080 ご 1110「 東 」 の スプ ライ トバ ター ン 。 
TIME=T 1120~1150 南 の スプ ライ 7 
IF TIME<T+6 み み THEN 76 2 
SCREEN 2』M(X 。Y) =3:』TIME=T siBDTD 33 020 % の ラウ クー 
VFUKE 213 。&H94 siRESTORE 12 1220 人 が 通っ た 跡 の キャ ラク タデ ー 
FUR 1=14MM TU 1423sRERLI 人 ま タ 。 


VPUEE TVAL ("HP+ ま ) gNEXT 
FOR J=1 TU 21:FUR 1=1 TU 29 
PRINT MID ま (C ま 。M(T 。J)+1 。1) > 
NEXT :FRINT :NEXT :RETURN 
ーーー BULE ーーー 
T=TIME :SBCREEN 1:FPRINT "お 姜 で て とう し しい 
C ま =C じ HR ま (17 曲 ) う キリ "+CHR ま (177) 
BUSUE 7B:H=T/36 HB ニ (TH36 四 四 ) / ら 中 
PRTNT 日 3" 全 "sBsU 秒 か か り ま し た 。" 
FRINT "FLAY ABAIN で (y/n) 『": 
ERASE MiIIM M(3M。22) 
M ま =TNFUT ま (1 ) 
IF INSTR ("YY ん 4" 。M ま ) THEN 11M 
IF INSTR("Nn み ミ "。M ま ) = 以 THEN 91 史 
CLS gFRINT "お つか れき ん 。。。" EN 
バーーー PATTERN HAT ーーー 
hQTA の 。 。 。7F 2 。 の 2 2 3 
LiQTQ 2, の 4 。 の 4 。 の 4 。 の BB 。1 以 。6 ら 6 
hQTA 8 ,B ,B2 』FF , の FC 
LiQTQ の 4 , の 4 , の 4 』 の 4 。 の 4 。 の 4 。 の BB 。 3 
LATA 1 。 の 2 。 の 4 。dF SG の 軸 7 
IATA 24』24 24 。24 。2 フ 2 。 SW 。 2 の 
hQTA の, の 。M 。FE の 2 の 2 2 。F2 
hATA 12.12。12。12。F2 の 2 2 。 の E 
hQTA の 2 2 2 の 2 7E 。 の 2 2 の 2 
LIQTA 2 2 2 。E 。72 2 。 の 2 で 
hATA 2 。2 。2。21 。26 dB 2 。2 
AT 2 。2W 2 2121 21 21 .1E 
hQTA の みみ の 。7F 。 の の 1F 1 の 。1 の 。1F 
HATA 1 の 。1 の 。1F 24 18 6 の 。 の 
DATA Bg。B2。FF 。Bg。FC。B4,B4 FC UN 提 間 NM 
DATA B4,B4,FC。AO,9g。BC ,B3 Bo il 間 ii 
HATA み ,。7F , の ga, 。3F 。2 22 NE 
hQATA 21 ,2F 。20 。2 。2F 。2 の 2 の 。 2 の 
hQTA B.B2 ,FF ,B カ ,BW ,FE 。 の 2 。22 
LATA 42。FA。B2 2 。FA 。B2 2 。BE 
hQTA 7F , の 2, の 2 の 2 。3F 。22 22.24 
hQTA 24 ,28B 2B 。3 の 。2Q 。2 。2W。3F 
AT FF 。2 。2 の 2 。FE 。22 。22 2 
IATA 22。22 3E 。Q2 2 2 。 の 2 FE 
hATA FF ,hB 。BH ,E7 。E7 。BLI 。DB 。FF 
hATA 18,18, の B。7F 。98 1 。24 。42 
hATA , の の, 。1 コ ,1 昌 の 。 の の 。 の の 


残念 な が ら 、 文 字 ば か り だ けれ ど 、 


これ は ジョ ー ク の よく きい だ 、 選 挙 シ 
ミュ レー ショ ン ・ ゲ ー ム な の が 。 

まず 、 ゲ ー ム に お ける 選挙 法 を 教え 
て くれ る 。 だ いた だ い 、 実 際 の 選挙 法 を 
カン タン に し た よう な も の で 、 有 権 者 
や 政治 家 に お 金 を 贈っ ちゃ いけ な いと 
か 、1000 万 円 以上 運動 費 を か けち ゃ い 
け な い と か >。 

まあ 、 守れ れれ ば 守る に こし だ こと は 
な いけ れ ど 、 あ まり キレ イ な 選挙 で は 
な か な か 当選 で き な い か も 。 

次 に 、 立 候補 する 政党 を 決定 。 自 民 
党 、 社 会 党 、 共 産 党 、 民 社 党 、 無 所 属 
の うち 好き な も の を 数 字 で 選ぶ の だ 。 
数 字 キ ー を た た だ たけ ば 、 選 挙 運動 開始 。 


宣伝 カー の 吾 数 、 ア ル バ イ ト の 人 数 、 


事務 所 に か ける お 金 …… と 次 々 に 入力 
し て いく 《。 だ だ し 、 こ こ て ば 数 を 入 
れ だ あと 必ず リタ ー ン ・ キ ー を た だ た だ く 


そもそも 


72 ダ 


 : 衝 ン デ - ーー ァ ン ーー 
テー 


宮 原作 : 川西 匠 也 


国会 議員 へ の 道 は 、 果 て し な く ダ ラダ ラ と 遠い …… o 
だ が 、 金 さえ バラ まけ ば な ん と か …… いや それ で は 選挙 違反 だ し 。 
正義 の 選挙 か 、 金 権 選挙 か 。 悩 み 多 き 選 挙 ゲ ー ム 。 

く ヤ 】 

つ ヤ 2 
存 グ 人 い 宣 政 

進 チ れ カ を 間 則 

E- == 二 革 

ラ ま く お 金 と ea 

か 、 他 の 代 議 計 吉 呈 

士 に 贈る ワイ 円 ニー て 

ロ と か も きい Neo 1 
て くる けれ ど 、 央 人 唱 さ 

1 人 師 拭 代 WU 


5 も 乗 ちな いも キミ の 自由 。 反 . 
が 見 つか ら な いこ と だ っ て ある し 、 見 
つか る こと も ある 。 悩み どこ ろだ ね 。 
を そし て 、 い よい よ 投 県 日 。 当 選 、 落 
選 い ずれ か の 結果 が 画面 に ……。 もち 
ろ ん 、 当 選 し た ら 国 会 議員 と し て の 給 
料 が 1000 万 円 ちあ もらえ ちゃ う 。 道 理 で 
みん な 議員 に な り だ が る わけ が だ 。 
を な 。. すぐ まだ 火 


変数 リス ト 


人 数 な どの 入力 用 
得点 数 

選 芋 違反 の 左 数 
当選 率 計 算 用 、 当 選 の 催 率 

い ぐ ら 使 つ だ が 

は じ め に 持つ て い だ お ず お 金 

| 目 殺 計算 用 

。 | 選 芋 違反 の 見 つか る 確率 

| | 還 金 

| 1 字 入 力 ル ー チ ン に て 使用 

大 開 | め を 買っ た り し だ 後 の 、 残金 算 
0 


それ だ け で ボツ に な っ て 、 ゲ ー ム オー 
ー バ ー。 だ か ら 、 い つも 所 持 金 の 残高 
を 気 に し な が ら 、 戦 略 を 練る こと 。 当 
選 と 落選 を くり か を し な が ら 、 や っ て 


いく と 、 あ る 日 、 突 然 、 思 い が け な い ちな み に 、 こ の ゲー ム は 、 真 夜中 に 


結末 が や っ て 《 る …… 0 ひと りき り で や る と 、 ゾ ヅ ゾクゾク し て 楽 
ふっ ふっ ふっ 、 そ れ が どう いう 結末 し いん じゃ な いか と 思い ます 。 キ ミ は 
か は 、 こ こ で は 教え を な いで お こう 。 政治 家 に 向い て る か ? 


10 乱数 の 初期 化 。 

20< 30 変数 の 初期 化 。 画 面 の 初期 設定 
を 行う 。 

40 キャ ラク タ の パタ ー ン 定義 。 ア 


スキ ー コ ー ド 8 に 田 (ベタ ) の 

キャ ラク タ を セッ ト 。 
50 て 150 ゲー ム の タイ トル 表示 。 ゲー 

ム の 説明 。150 行 で は 、 何 か キ ー 


入力 され る まで 待つ 。 
160 て 240 プレ イヤ ー の 入る 政党 を 表示 。 
入力 。 


250 て 340 所持 金 の 計算 、 表 示 。 
350>390 宣伝 カー の 台数 を 入力 。 
400 ン 410 アル バイ ト の 人 数 を 入力 。 


君 も 国会 議員 に な ろう つ ぜ 


1 FUR IT= ゆ TO TIME-INT (TIME/2 つ 86 ) * つ 6 』 X メ = ド R 
NHD(1) siNEXT 

ン ゆ ウ CCLG ロニ = の ウ ョ ビニ テウ ミロ = の ウ : ビニ ウ ロニ ミ = si エニ ミド デ s 
に K 全 = sa ドロ = ウミ に ド じ ビ = テウ ミロ = sSCREEN 1 sMIDTH 29 

う 3 エニ =1 : ロ ドニ = : ら ドド = 

4 の FUR IT=gTOU7 siVFOUKEB+T 。2SS saNEXT 


ここ NB 還 還 u 且 症 了 エ エエ テテ エエ エ テ エ エエ エエ テテ エ エエ テテ テテ エエ コル 
6 ゆ M_ PRINT | # きも こっ か いき いん に 
7w PRINT " # な あう 人 せ " カー ム 
8BM _ PRINT " 。 半 革 り 
ルル に Ilg 還 u 昌 エ エエ エ テ エ テ エ エエ エ テ エ テテ エエ テテ エ テ エ テテ テテ コル 


1 LUCATE の @。1 の PRINT "グー ム て " 0) せき ょ ぼう " 
11M_ PRINT | 1 の 2 け 6 し Le に きん UM 4 を お くっ て は いけ な い s 


1Z_ FRINT ) 2 た 0 きい ん に きん ひび "ん を お くっ て は いけ な 1。 


13M_ FRTINT は せん きよ ろ ん の と うに つか うお か は 1 の 万 円 
いな がい に し な けれ は "いけ な Le 

14M LUCATE 1。BsFRKINT "Hit any key" 

15 IF INEKEY ま = リリ THEN 1SM 

16 み CLSiLOUCATE B。MgPRINT 「 あ か ん は ろう! の 
17w LUCATE 5S。3gPRINT "あな た は と ) の せい と っ つて" すか が?" 
18A_ LUCATE 6。6giFRINT "1 し みん 4 と うら" 

19_ LOUCATE 6。7gFRKINT リ 2 し Le が し い に る " 

2 LOUCRTE 6。8BgFRINT "は きよ っ る ざ ん と どう 

21M LOCATE 649giFRINT "4 お ん も しゃ と こう" 

2ZM LOUCATE 6。41miFRTINT "TS お し ょ そく リツ 

2Z3 の FRINT "NO 。=" ョ sgBUSUE1 1 7M 

<4MM IF ロロ まく "179 OUR G ま "SD THEN FRINT siGOTO 


25 の の LOCATE 呈 。12 iFPRINT "あな た の し ょ し "きん は " 

26 5S ド =INT(RNH(1 ) * 后 ) + 1 

27 5=QBS (に ドー) :5=G+1 

っ 28 ド に =INT (RNH( 1 ) *1 の ) 

っ 9 IF ド = THEN ド A=B 

3 IF F ド > NL 王 THEN KA=1WM 

31 の の IF ド >4 NL ESB THEN ド に 人 =155 

32 IF ドド = 日 THEN KA=2 

33 IF ド =9 THEN ド KA=3WQM 

34 LOUCATE 12。13』PRINTER "万 皿 " す " 

35 INFUT " セテ "カー は な ん だ "1 つか し いま すか 1 た "いい 
1 万 円" す 。" sh 

36 の =Lix 1 0 ロ D=0+Lix4 

37 BUSUB 124 

38B IF FEAS1 THEN 73w 


39 ロニ EK ビ ニ KA ラス 
4 INFUT " 。 ア MNYT ト は な ん に ん や と いま すか ひと り 6 万 円 シ は 
で" す 。 "sg ヒビ =hix6 s ロ = ロ TL 還 

41 BUSUE 124 ゆ WsIF FEAS1 THEN 73MW C〉 


7 ウ ク 


@ 告 も 国会 議員 に な ろう ぜ の つづ き 


42 の INPUT "し "むし ょ は いく ら か け ま すか 。 1 PE いで 
うり ょ くし て くだ た" Se た た "し SM カカ 門 1 に ょ よう で す 。 " ョ し 

43 ウ IF C<5M THEN 4 

44 ロロ = ロ + ピ / 1 WM 

45 GOUSUB 124 ゆ sgTF KK1 THEN 73M 

46g INPUT " 人 せわ に な っ て いる きい 4 に いら た "し ます か 。 1 
41 て "にゅ うり ょ くし て (ただ た" ne "CU= ロ +C/ 1 

47 ウ IF C>M THEN =F+1 

4 は MM _ BUSUB 124W 

49M_ INFUT ゆる けん し ゅ ゃ に いく に (は " り ま すか 。 7『 棋 4L1 て 
~ に ゅ うり ょ くし て た" ざい 1e "Ci0=0+ し じ 

SM IF CM THEN F= テ ド + デ 

1 IF Cd THEN P= ド + デ 

52 BUSUB 124kTF KAK1 THEN 73 ゆ ELSE FRI 
NT "と うろ 0 ょ の 0 で す 6「 

5S3 =INT(RNLI( 1 ) *2M) giFUR エ =1 TO 2MMM sNE 
XT siCLS 

ご 介 軸 「 モ 「+ ロ 

SS E= ド ビード 

ら ム 6 の IF E>1 ゆ MM _ THEN ド = ビ +1 

7 IF E>15M THEN F=P+1 


に ゅ 


SB IF E>2MMM THEN F=F+1 

9 1TF E:2SW THEN = ビ + ど 

6 み の IF T>4M NL S=1 ロ R TS RNLI S=Z_UR 
T>53w QRND 8S=3 OUR T:>56 ANLI S=4 THEN 76@ 
ら 61 IF T:6g NL S=5 THEN 76M ぬ 


62 の LOUCATE 7。8 giFRTINT "T 4 折 も で" し た 。 させ ん し まし た 。 
"sFUR 1 ユ =1TU1MMsNEXT 

63 ゆ ウ LT=INT(RNH( 1 ) ※1M ゆ ) 

64@ IF LiT= THEN 9 

6 ロロ INT (KRNL( 1 ) *3) sTF PF= THEN 71M 

ら 66 の IF 器 = THEN じ =1 ゆ giGBUTOU 69 

ら 67M IF P< 呈 OR ロロ =1 THEN 71W ゆ 

6BQ じ =2W-2 の xG 

269 PRINT "人 せれ き よい は 6 か " す つ か り は "っ きん "iC ェ リ 万 に お れ ま 
し た 。"sTF LT=9 THEN 9 

7 の ウ の GUSUE 124M ぬ 

71 の の ドロ = ド KR+ ジ MM 

729 PRTNT "あな た 0 と " り ょ く に より し ょ た し" きん か "20 の 万 軸 えて" 
s ド ER "方 国 - な り ま し た 。 "gsFRINT 

73 ロ IFFER1MM THEN PRINT "あな た は け お か 析 か "な 6 ホリ 
た た" 。" sGUTOU 14 
74M FRINT “ 
75M GUTOU 39M 
76 の の LOUCATE 9.8 iPRINT "お 秒 て "とう と ろう せん し まし た 。" ョ F 
RINT 

フ 77 ロロ =INT(RNL( 1 ) * ど ゆ ) 

フ 78 IF ロ =F THEN B4W 

フフ 9 の JF P: 呈 NDL QR<2 ロ R Pi naNLI G:16 1R F 
>15 QAND Qz15 THEN 4 

B IF GQ>1 の の QRND P>2M DR 5 NLI F> ジ 4 THE 
N 84M ゆ ぬ 

1 の ドニ = ド E+ 1 の ウーG+1sFRTNT きゅう り よ っ ろか" 
KR 万 軸 なり まし た 。" 

B2 IF KA<1 THEN PRINTsPRINT "あな た は お か か 


また 人 せん きよ た c「 


は いっ て " 


7 ラ 3 の 


420<450 
460 て 480 
490 て 510 
520 て 610 
620 て 750 
630 て 640 


650 て 670 
680 て 700 


710 て 720 
730 


740<750 


760 て 830 
770 て 810 


820 


事務 所 に か ける 費用 の 入力 。 

他 の 議員 に 配る お 金 を 入力 。 
有権者 に 配る お 金 を 入力 。 
当選 か 落選 か 計算 する 。 
落選 の と き の 処 理 。 

確率 10 分 の 1 で 、 自殺 ルー チン 
0 

選挙 違反 が 見 つか る か 否 か 。 
視 金 を と られ る 。630 行 の 乱数 
の 値 に より 、 自 殺 ル ー チ ン へ 。 
寄付 を 受け る 。 

再度 、 選挙 する だ け の お 人 金 を 持 
っ て いる か どう か 。 

次 の 選挙 。 ア ル バ イ ト の 人 数 を 
和信 衝 する と ころ に も どる 。 

当選 処理 。 

寄付 金 を も ら え る か どう か 、 乱 
数 に より きめ る 。 

再度 、 選挙 する だ け の お 人 金 が な 
いと き は 、 お わり 。 


* な 1。 
83M 
人 4 
bgDbg 
SiMW 
1 SD 
6 中 
た 。 = 
G /M 
BBM 
GOMM 
e 's 
ワ M 以 
1 
ワウ ピ MM 
93M 
介 凡 
ご iM 
ヴ ム 6 ゆ 
9 7/MM 
9HM 
ワ ヴ MM 
1 MM 


11M FUR IT=1 『U 


1 MM 
1 3 
まし た 。 
1 人 4 
1 MGM 


830 て 
840- 890 


選挙 違反 が ば れる 。860 行 の 乱 
数 に よっ て 、 自 殺 ル ー チ ン へ 。 
自殺 の と き の ピ スト ル の 音 。 
PSG の 初期 化 。 

ゲー ム エ ン ド 。 

当選 後に 選挙 違反 が ば れ た と 
き の 罰 金 を 計算 。 

再度 、 選 挙 す る だ け の お 人 金 を も 


ホ " 9 た " 。 "gsBHTO 1 四 44 要 
BIT 39 

FLAY "tt2 で 5Wy ジ bghghgbgbgy4bgbgbgbg マ 6b 
bgv8bgbgbgbg“ 

FLQAY "v1M ぬ bgbgbgbgy12 ジ bgbgbgbg ロ ッ 14Dgbgv 
bgbgbgbgbgbgbg“ 

CLS iLDCRTE BBiPRINT "は せ き まい 和 は 6 か 
LiT=ITNT(RND( 1 ) *1 必 ) 0 

IFLT3 THEN 111M PTM 

IF LiT= THEN 9 選挙 、 
LOCATE 呈 。1MEFRTNT "あな た は た い ほ な れ て 上 し まし まし た QA 
ロ TO 14 “ NN 

CLGS 
FOR 1=1 TO 1 み AiNEXT 1 rw 

FR 5S=w TO 1 NN 
SHUNLI 6。15 0 

SHUNL 7。7 
SUNLI 。16 

SDUNI 9。16 
SDUNTI 13.。W 
SOUNL 1M。16 
SOUNTI 1 。16 
SDUNLI 13。M 


900 て 1030 
1040 て 1060 
1070 て 1100 
1110>1130 


まし | 


1150>1160 


1MMsiNEXT 1 
NEXT 58 
じ LB sLUCLATE 


7 BiFRINT りあ な た は し S コ (し まま しい 


っ WsNEXT 1] 
13』SOUUNH 1 NEXT 1 


FR iT=1 TO 
FR IM TO 


1Q6 み GODUNTI 7。56 


17M CLSiLUCRTE 


(y/ ロ 
1 MBM 
1 9 以 
1 1 MM 
111M ぬ 
1 1 ご 由 
1 1 3 中 
1 1 4 ゆ ぬ 
T "あな 
1 1 Ei 以 
1 1 6 以 
1 1 7 中 
1 1 MM 
1 19M 
1 ど MM 
1 どど 1 
1 マデ MM 
1 で づ 3 以 
に 

1 人 4 以 
1 で SM 
1 どら 以 
1 ご /M 
1 ど BM 
1 ご ツ M 


1170 て 1230 


カー ソル を 点滅 させ な が ら 、 キ 
ー 入 力 す る ルー チン 。 G$ に 入 
力 さ れ た コー ド が 返る 。 

残り の 所 持 金 を 計算 。 表 示す る 。 


7。B iTNFUT も まだ) のり ます か 
) "ふま 

IF MM ま = モ "イリ 
IF M ま TNI" 
ENL 
BE=TINT (RNLI( 1 ) *5M) 

EE=E ド +1Mー1WrG 

FRINT "は "っ きん "MEBE 万 た まし た 。 | 

C=EE sBUSUB 124sTF FRE1MM THEN FRIN 
た は お か か " ない ホリ た "osBHTO 14 

FRINT :FRINT" ほう り コ は まもり まし ょ う !" 
FRTINT :GBDTO 39M 

仙 ま =CHR ま (1)+ "UiBHTO119M 

まま = リ ーー" 

1=i:iFRINT ま +CHR ま (&H1L) * 

は ま =TNEEY ま ITF 日 ま ま SETUPTHEN123M 

1=1+1 szIF 1 THEN 12WM 

IF 人 Q ま =" " THEN 117@ELSE118W 

IF G ま >CHR ま (32) THENFRTNTG ま 』:RETURN E 
117 

IF CE THEN ヒビ =M 

ド B= ド Enー ビ 

FRINT FRA" 万 町 ュ ビ リカ 時 "EE ョ " 廊 幅 ! 
PRINIT の あな ね た の し ょ し に きま 4 は" ョ EE " 門 で す 。 
ド に Qn=EE : じ =@ sFRINT 

RETURN 


RM ま ="y" 
ANL MM まく 


THEN M 


"n" THEN 


1 以 7 1240>1290 


7 ヲ 7 


AIVIE 


写っ 原作 : 園田 仁 


や っ つけ て も や っ つけ て も 、 形 を 変え て 現れ る UF O。 
銀河 の よう に 散り ば め ら れ た 星々 の すき ま か ら 、 
UF O の 中 心 を ね らい う て 。 


星々 の 向こう に フラ フラ と 漂っ て い 


る の が 、 キ ミ の ね ら う UFO だ 。 
カー ソル ・ キ ー て 左右 に 移動 し な が 


ら 、 スス < ペー ス し キー で ビー ム 発 射 。 gm も も を 


た だ し 、 ビ ー ム は 、*? や Ys? 
に あたる と 、 を その 先 に は 行か な い 1 
の で 、 す きま か ら 相 手 を ね ら う し 
か が だ な い 。 

し か も 、 お を そろ し いこ と に 、*Y*/ 
に ビー ム が あたる と 、 ス ラズ ラッ と 
星 が 増 えて し まう の だ 。 増え た うえ に 、 
Ye? が * ク に 変わ っ だ たり 、 そ の 逆 に な 
っ ただ たり と わけ の わか ら な いこ と に な っ 
て た まう 。 

じゃ あ 、 量 が 増え すぎ て し まっ た と 
き は 、 だ だ に ら め っ こ ば か が かり し て な き 
や な ら な い の か と いう と 、 そ う で は な 
い 。 実際 、 ず る いこ と に 、 敵 の UFO の 
ビー ム は 、 星 を ガン ガン 破壊 し て こっ 
ち 側 まで 届い ちゃ う の だ 。 だ か ら 、 敵 
が ビー ム 攻 撃 を し て きた 跡 は 、 ス ッ キ 


変数 リス ト 


リ と 星 が 消 えて し まう 。 キ ミ は 、 そ の ほう が 強い の だ 自 機 の X 座 標 
すき ま か ら 敵 を 攻撃 で きる っ て わけ 。 と いう の も 、 敵 は あ 英 の XX 座標 
な ん と も 、 他 力 本 願 の ひよ わい 設定 ” まり エネ ルギー が な い 面 数 
だ けれ ど 、 敵 UFO と キミ の ビー ム 砲 の 。 らし く 、 と きど き し か スコ アゲ 
強 る を 比べ る と 、 実 は 圧倒 的 に キミ の 攻撃 し て こない 。 を それ 自 機 の 数 
に 動き も 、 キ ミ ほ ど に UFO の 数 
は 2 ニブ に we UFO の 格納 場所 
星 を めぐ る ハン ディ 宇 
キャ ッ プ ' は ある けれ ど 、 ソ FO の READ 有 
ガン ガン 強気 で 攻め て 時 0 
必 を 右 移動 用 
ME に NNBD の 沿 UFO 左 右 の 秘 動 用 
2 PEEK 用 
に ヒッ ト し な いと 効果 敵 ビ ー ム の Y 座 標 用 


732 


が がい 。 され は 、 圭 ミ 
の は ほう も 同じ 。 脇 に あ 
だ っ だ くら 6 いで は ぜ ゼ ク 


味 亡 ビー ム の Y 座 標 用 
星 の 座標 


と も し な い 


っ て わけ が だ 。 


みごと 、 敵 の 中 心 を と ら え て 1 発 お 
見 舞い する 
て し まう 。 


と 、 フ パッ と 敵 の 姿 が 変わ っ 
を こ へ まだ 1 発 、 す る と ま 


た 変わ る 。 あ て る た びに 、 敵 は キャ ラ 
クタ を どん どん 変え て いく の だ 。 い っ 
だ た い 、 何 種類 の 顔 を 敵 は 持っ て いる の 


て く 衝 。 

自 機 が 3 台 や られ る と 、 ゲ ー ム オー 
ここ の 表示 が 、 ち ょ っ と カッ コ 
いい ん だ ぜ 。 


ざ 
ンー 


> じ ち くり ゲー ム し な が ら 数 を えて み 


50 


60 70 


90 て 130 


140 
150<200 
220 て 230 


240 一 260 
270<290 


300 て 320 


340<380 


390 


400<420 


/// 


mWU 


初期 設定 。 

W$(1) に UFO の キャ ラク ター 
を 代入 する 。 

各 画 面 作 成 の サブ ルー チン へ 
飛ば し て いる 。 

キャ ラク ター コー ド 135 て 137 
を 自 機 の キャ ラク タ に 再 定義 。 
自 機 を 左右 どちら に 動か すか 、 


また ビー ム 発 射 か どう か を 調べ 、 


その 処理 を 行っ て いる 。 ビ ピー ム 
発射 の と き は 330 行 へ 飛ぶ 。 
自 機 の 表示 。 

敵 の X 座 標 を 求め 、 表 示 。 
英 の ビー ム が 防御 の 壁 に あたっ 
た か どう か を 調べ る 。 あ た っ た 
と き は ビー ム を 自 機 の Y 座 標 ま 
で 到達 させ すず 、 あ た っ て な いと 
き は 到達 させ る よう に 敵 ビ ー ム 
の Y 座 標 の 設定 。 

英 ビ ー ム の 表示 。 

敵 ビ ピー ム の 通過 し た 跡 を スペ 
ー ス クリ ア す る 。 

敵 ビ ー ム が 自 機 に あたっ た と き 
は 460 行 へ 、 あたっ て いな いと 
き は 、90 行 へ 。 

自 機 ビー ム 発 射 。 
自 機 ビー ム が 、 星 に あたっ た と 
き は 570 行 へ 。 

自 機 ビー ム の 通過 し た 跡 を ス 
ベ ペー スク リア すず する 。 


の / 


凍 昌 |UO 
が (0 


1 の SCREEN1 saMIDTH 328CLB DEF INT 人 AZ :M=3 』 = 
1 4 :GC= の sMQ= の 』X=1 の XX=1 の sgDIMD を (3) :DIMM も (1 
4) iD を (1)=" リ 0 sD を (2)= リ 0 。 "sgH 和 を (3)="。 "saKEY OFF 
sCULUR 1 。14。 ら 5 

2Z の FOURI= の TO14 

3 の READT を WM を (T) = 本 を sNEXT 

4 みゆ ウ FOUR I=1TO2sPLAY "ECB" siNEXTsPLAY"BBB"sF 
DR =1TU4 ウ sNEXT 

S ウ GOSUB 7 の g み GUSUB 74@:GUSUBS 7 : GUSUB66 ゆ 
s SUSUB 6B ウ 

6 の ウ RESTURE BB 

7 ウ FOUR Z=135TOU137sFOUR = の TO7sREAD じ を 』sVFH 
KE(ZxB+OU) 。 (VAL("&H"+ じ を ま ) ) siNEXT kNEXT 

の  / メイ 0 基 半 半 

9 の U=STICK( ウ )+STICK(1) 

1 の IF GTRIG( ウ ) +STRIG(1) THEN コ 3 ゆ ぬ 
BEEP : BEEP 

IF リロ =7 AND X> の THEN X=Xー1 sGUTU 14 ゆ 
IF U=3 QAND X<21 THEN X=X+1 

COLOR 1 14.SsLUCATEX 。2gPRINTD あい うど 
N=RND ( 1 ) *( 全 + づ ) 

IF N=1 ANHXX く 21THENXX= ニ XX+ ィ 1 sGUTOU 19M 
IF N=2 NHXX>W THENXX=XXー1 sGUTU 19 
IF INT(RND( 1 ) *ax4)= ウ THEN GUTOU 21MW 
COLOR1 。14 5sLUCATE XX 。2 sgPRINTM ま を ( 合 ) 
BUTU 9 

/ 半 基 基 テキ ダマ 共著 半 
R=VPEEK(&H18+ (XX+2) +19x32 ) 

IF CHR を ま (R)=" "THEN MM=19ELSE MM=ZW 

FOUR 1I=3TOUM 

LUCATE XX+2 IiPRINTT "の 

NEXT TI 

FOUR 『=3TUM 

LUCATE XX+2 TsgiPRINT" 『" 

NEXT 1 

F=VFEERK(&H18+(X+ ィ 2 ) +2 ウ テ 32 ) 

IF CHR も を も (F)=" "THEN GUTOU 46@ 

GOTO 9 

/ 基 区 基 三 力 ダフ 革 革 革 

TTY=19 

LOUCATE X+42 。TYgFRINT" 1" 

TY=TYー1 
P=VPEEK(&H18 愉 +(X+ オ で) +TY 32) 』 じ まま = じ HR ま ( 
P) giTF じじ まく > リリ THEN 39 

38 ウ IF P=32 THEN BUTOU 3SM 


NNN 39 ゆ IF じじ ま ="*%"THEN BUSUB 57 


4 _ FOUR エ =19TOUTY+1 STEPー-1 
41M LUCATE X+2。IsPRINTP “ 
42 の の NEXT 1 


@UFO GAME の つづ き 


43M ITF X=XX ANLL TY=2 THEN BUTO 1 中 

4 人 4 GUTO 14M 

人 MM / 革 基 三 力 ダグ] の) 半 半 半 

46M COULUR で 9 9 iLUCATE XeMgFRINT" XXX " 
5sFLAYPTECU sgFUHR エミ =1TO3M sNE X 丁 

47M LUCATE X SMsFPRINT" "gsM=Mー1 』:X=1 以 
48M_ BUSUE 66Ms TIF M= み THEN FORT=MTD1W gsBEE 
PF siNEXT siGOUTOH76M 

人 49 GOUTO 19M 

SIMMM / 半 拓 基 テキ リフ テ 半 半 半 

ご 1 由 = ロー1 sgFLAY"TEO sgLHCATEXX 。2 siFRINT" 
"sFUR し =1TU2M giNEXT XX=(RNLI( 1 ) *1 呈 ) + ロ 

っ MM 6 じ =5 じ ビ +2 BUHSUE 68 

っ J 連 TF =1M DUR 内 =6 UR an=3 THEN 
7 sGUSUEB 74 

ご 傘 エ TF MM THEN =14 :5 じ =S ビ C+ 1 s BUSUE6BW s 
SUGSUB 56 ぬ 

sci GOUTOU 14 

悟ら 切 7 半 基 光 ホル 基 基 基 

Ss/7 FOUR エ =1T03 

っ HB 上 まま =L ま () 

SFUR コモ =1TOH6*1 

ら 6MM じ X メ = テ (RND( 1 ) % ど 4) ビビ Y=(RNH( 1 ) *13) + 

61M LOUCRTE CX CY iPRTINTE ま 

ら 62 NEXT 

63_ NEXT 

64 ゆ M RETURN 

た エエ 0 り た 介 エ エ : 

66M LOCATE 641MgFRINT PTSHIF "iaMgiRETURN 

7 基 基 GCCURE 交 

68M LOUCATE 6。1S5gFRINT TSCURE" ELUCATE 全 ら 』 
16 siFRINTUSTING" 拓 提 提 提 "saSCsRETURN 

69 妨 7 甘 拓 用) メー 基 基 基 

7MM FUR エ =MTOUE3 

71M LOUCATE SEIgFRKINTD 。 DasNEXT 

7M FOR LTL=MTOUESEsLOCRTE HigiFRINT リ アー リ PaNEXT 
s RETURN 

7 づ 3MM 革 共 基 ホ ウキ ョ ヨブ 有力 や | 甘美 基 

74M FUR C じ =MTUESaLUCARTE じ 。19gFRINTV DaNEX 
T 

7SA FOR U=MTUESaLOCARTE UE1 sgFREINT "ナリ UaNEX 
TUsRETURN 

76M_ C じ LS ILOUCRTE 1 ゆ Ma1MgiFRINTTYOUUR SCURE = リ " 
s5CsLHCATE 12。15gFPRINT "GAME VER" 

ア 7/ ゆ M 上 ま =TNEEY ま 

78BM_ LOUCRTE1E。1EgFRINT TGBRME _ ロ VER "ILOUCRTE 
1 24 の 3PRINMI" "saLUCATE11 1EsFRINT 


GUSUES 


"REFLRYLSJEEY "iTF 上 E ま ="S リ DUR 上 ま ="S"THENRU 
NELSE 7 7M ぬ 

フウ 以 IATA" 中 5 LE 3 ・ 3 生 8 中 イマ 中 B L ト 六 | L s 
1 イデ 6 5 L [ エ ] | 5 1 トー L 5 唱 冗 丁 宙 0 [ 更 ] L 。 
則 十 X 十 日 s 日 + エ F 中 8 りり 上り 中 りり 上 学 ゴ 6 1 2 唱 


8 ヒー コ 重 一 69 

Ba LIQATA WW。M。Q。 の 5 。C2 CB 。4 。E3 
B1 HATA 1 コ 。3C。7E 5 。AA。14 。22。8 昌 
B2w LATQA WM。AA。W。5。A3。13。1B。E7 


73 タ を 


430 


460~490 


510 て 520 


530 て 540 


570 て 640 
660 
680 
700 て 720 
740 て 750 
760 
770 て 780 
790 
800 て 820 


自 機 ビー ム が UF 0O の 座標 と 一 
致し た と き 、510 行 へ 。 

自 機 を 爆発 処理 させ 、 ス ペー ス 
クリ ア す る 。 そ の 後 660 行 に 飛 
ん だ 後 、 目 機 の 残り 数 が 0 の と 
き は 、760 行 へ 。 それ 以外 の と き 
は 190 行 へ 。 

UFO を スペ ベー スク リア し 、 次 の 
UFO の X 座 標 を 求め る 。 その 後 
スコ ア の 更新 。 

敵 の 数 に 応じ て 、 星 の 数 と 防御 
の 壁 を 表示 し な お す 。 ま た 、 敵 を 
15 爆 破 し た と き に 、 ス コア の 更 
新 と 570 行 へ 。 

星 の 座標 を 乱数 で 求め 、 表 示 。 
残り 目 機 数 を 表示 。 
スコ ア の 表示 

画面 を 作る 。 

防御 の 壁 を 表示 。 

ゲー ム オ ー バ ー 処 理 。 

も う 一 度 GAME を する か 否 か 。 
UFO の デー タ 。 

自 機 キ ャ ラク タ の デー タ 。 


| 1 1 
いじ 
1 


くん 


軸 り 
や 倫 『 プ ログ ラム ・ ポ 逐 エ ッ ト 』VOI.1 原作 : 時 間 良 平 
3 ね ら っ た 財宝 は 、 2 匹 の 犬 が し つこ く 守 る 迷宮 の な か 。 


ジン すばやい 身 の こなし と 必殺 ワー プ て で 、 
秘密 の アジ ト ま で 、 す べ て の 財宝 を 運び こめ 。 


英語 の サブ タイ トル は Money Pa - 
nic"。 画面 の 上 に は 、 こ ちら が 表示 
され て いる 。 

カー ソル ・ キ ー で ドロ ボウ くん ( ル 
パン 町 世 な み の 人 怪盗 な の だ ) を あや つ 
っ て 、 上 の 洞窟 に か くる され て いる 財宝 
を 盗み 出す ゲー ム が だ 。 

財宝 は 、 ド ロボ ウ く ん が 入り こめ ば 
自動 的 に ドロ ボウ くん の ふと ころ に 入 
る 。 こ の 財宝 を 、 下 に ある 秘密 の アジ 
ト ま で 持っ て いき 、 ア ジ ト に ある ダイ 


ドロ ボウ くん 


1 SCREEN 1gMIHTH GEIHEFTNT 仙一 Z ミロ = で AMI : 
ソニ kgH1RAgaMXEGE EEEYUFF giGUSUE BMM 

< 四 ら = テ MgME3 ME=1 

2 FXE]1 届 saXE1M IEX テ SM ERHX テ SM ELI=1 MX テ 1 
7 ョ is し MEMS EE ビ 居 =H デ EMMA EXUHEMX YU=ENY 
語義 キキ ヤキ タ ヤヤ ヤヤ イセ ヤヤ ヤヤ ヤヤ ヤヤ ヤヤ ヤヤ ヤセ 
M FRTNT 人 韻 拉 拉 掛 韻 盾 判 村 提 井 揚 井 韻 提 提 半 Z" 


変数 リス ト 


ツイ スコ アピ 
V-RAM の アド レ 
ス 

1 行 の 文字 数 
スコ ア (得点 ) 
グレ イヤ ー の 入 数 
面 

犬 1 の X 則 標 
犬 1 の X 座 標 ソ ワー 
プ 

大 の X 座 標 
犬 の XX 座標 ワー 
ン 

犬 ジ の 動く 万 向 
プレ イヤ ー の 座標 
犬 1 の 動く 万 向 


HMI 
-i 了 y| 問 > 


プレ イヤ ー が お 例 MM PRKLNI で ん ル ん 4 4 2 ん 4 スイ ズル 2 ルル ルル ん スル メリ 
を 持つ て いる ガ 合 7 PRINT “2 ん ん ん ” 
ガ が MM PRKIUNI ん ん 22 2427 ル 77 を 772 ん 77 ZZXXZ 


MM 


ワー プ で きる 回 数 


に 民 よ LNMN す ん ん ん ん 4 ん ん ん ん 


財宝 を も つて いつ 1AM FRINT "2 22222 2 タス スク スー ZZ ズ タリ 
だ 回 数 112 FRINT "% 2 WMA2 2 
エネ ルギー (ボー 1 の 0 PRINT "2Z ZZZZ7ZX 2 ZZ ZZZ ん メス " 
赤玉 趣 9 13M PRINT "% 人 
プレ イヤ ー の 忠 禁 14 PRHNT "AMZZX 22X2ZZ222 XY2 XXXZXXZ" 


1 5M 
] 6 ぬ 
1 7MM 
18BM 
1 9 
<MM 以 
1 凡 


ーー デ 以 


FRTINT ん ん ん ん ん 
PLNT ん 4 ん みん ん ん ん 4 7 みん ん 4 イメ 2 ん" 
PRINT “" ィ ん 
PIN た メメ メス ん スル ん 4 2 ん ん メメ スス メメ メメ ん 4 " 
PRINMNT "る Z ん ん 4 ん ” 
PRUMI の 24244 4 ん 2 ん 44 4 ん ん ん 44 ん 4 %47" 
四 民 上 則 ) ん ん ん ” 
FRINT ん 4 ん ん 4 ん 「 


ウニ ラク 

キー 入力 用 

プレ イヤ ー の 動い 
「 | だ 亡 向 

エネ ルギー を 減ら 

す の に 使用 

V-RAM を リー ド 

する と きず 使用 


キャ ラク タバ パタ ー 
ン ・ デ ー タ の セッ 
ト に 使用 


3 っ 3 
24 以 
ら 凡 


と < ら 以 


FRINT 
FRINT 
ERINT " 
FRINT " 


ん 


ん ん ん ん ん ん ん ん ん ん ん 


ん 1 
ん ん ん ん ん ん 
ア 1 


る ん ん ん ん ん えん ん ん ん ん ん ん ん ん 


@ ドロ ボウ くん の つづ き 


27@ LUCATE 7。18:PRINT " 柱 拉 < 六 料 粋 提要 欄 " 

28 LUCATE 7。2iFRTINT "提議 提 間 &x 提 " 

29 の FOR IT=3 TO 21 BTEP 3:iLUCATE 1 。1 FRIN 
T "まり ョ sgNEXT iGBHSUB 76@ 

3 みみ IT=STICK( ウ ) +STICK(1 ) 

31 の IF 1< く > THEN PLAY "ロロ 7L64B" 

32 の IF 1=1 THEN MY=MY-1 :YF=1 

33 の IF 1=5 THEN MY=MY+1 』YF=ー1 

34 ウ IF 1!=7 THEN MX=MX 一 1 :XF=1 

35 の ITF 1=3 THEN MX=MX+1 sXF= ニ ー1 

36 PF=VFEEK (VQ+TMY*VX+MX) iTF P=ASC("Z") 0 
R F=QSC(" 拓 ") THEN MX=MX+XF iMY=MY+YF :XF=M 
sYF=M 

37@ IF P=ASC("&") NL C= THEN MY=MY+YF 
3 IF P=ASC("") AND C=1 THEN LUCATE MX 
。MY igFRINT "まり ョ 5g ヒ = の:MY=MY+YF ドニ ド +1 :5= ニ B+ 1 
sBEEP : IF ド =7 THEN 61 ゅ 

39 1F PSSASC(" ま ") THEN 42 

4 IF MY ヾ >1 THEN MY=MY+YF sBHTO 42M 

41 の IF C= の @ THEN BEEF' sC=1 :MY=MY+1 iLUCRTE 
MX 。1 iPRINT " "siELSE MX=MX+XF siMY=MY+YFgX 
F= s YF=W 

42 の IF STRIGB()+STRIG(1) NLI M: THEN 呈 7 
M 

43 み LUCATE XOD。YUiFRINT " "ggLUCRTE MX 。MY 
sPFRINT CHR ま (12 コ ) 』 :X ロ =MX :Y ロ =HNY 

44 XF=MsYF=gLOCATE 25。BiFRINT SiiLOCRT 
E 25.45iPRINT Bsi 

45 の EK ド =BE+1 :TF BE ド =1 THEN B=B-1 の giEK=W iTF 
B= THEN 7 

46 の TX=TX+TiIF IXX2 THEN =1 ELSE IF IX 

22 THEN 人 =ー1 

47 IF VFEEEF (VA+9*32+TX)=12 昌 THEN 7 
4 IF BS(9-MY) ME+2 NLI IX>MX THEN 人 = テー 
1 

49W IF ES(9-MY) ME+2 NLI IX ぶ MX THEN 人 =1 

mA LODCATE AX 9iFRINT "9 "igLUCATE TX 9jF 
RINT "\"sAX=IX 

1 ド X= ド に X+LlsTF EX ぶ 2 THEN Li=1 ELSE IF EX* 

22 THEN =ー1 

2 IF VFEEFE(VQ+13X32+ ド X)=128B THEN 7 

3 IF BS(14-MY) ME+2 NH EX:MX THEN = 
ー1 

4 IF ES(14-MY) ME+S ANLI ド EXSMX THEN Ll= 
1 6 

5 LOCATE BX 。13iFRINT " "saLHCATE ド X 。13s 

PRINT "で "saBX=KX 

56 BUTO 3MM 

7 MX=INT(RNLI( 1 ) *22)+1 siMY=INT(RNL( 1 ) *13 
) +4 sP=VFEE ド (VA+TMY*VX+NMX ) 

5 IF P=ASC("Z") THEN 57 ' 

9 FUR 1= TU SiLUCATE MX 。MY siFRINT CHR を 
(128) 』 iLUCATE MX 。MY siFRINT " "iiNEXT 1 

6 の M=W 一 1 iLODCATE 2 。19 iFPRINT MiiBOUTO 3 
61 の B=B-1 の 5S=S+1 の iLUCATE 25。BsPRINT S" 
ssLUCATE 25 SiPRINT Bi" "iTF B= THEN 6< 
ELSE 61@ 


736 


ヤ 型 の くぼみ に 押し こも う 。 ア ジ ト に 
収め た ら 、 再 びあ の 洞窟 へ ……。 全 て 
の 財宝 を アジ ト に 集め れ ば 1 面 ク リア 

と いう 次 第 。 

犬 に つか まれ ば 、 ド ロボ ツウ くん が 1 
人 減っ ちゃ う の で 、 う まく か わす こと 。 
犬 は 、 縦 方 向 に は 追い か け て こない の 
で ヤバ いと き に は すか る さ ず 縦 道 へ 逃げ 
こめ 。 それで も 、 ま に あい そう に だ な か 
っ だ ら 、 ツ ク グ 、 ワー ブ ク (スペ ー ス ・ 圭 
ー)。 で も 、 ワ ー プ は 5 回 まで し か 使え 
な い の で 使い すぎ に 注意 。 ワ ー プ の 行 
き 先 も 予測 で き な い の て 


ググ 


ンク 


10 画面 の 初期 化 。 変 数 を すべ て 整 
数 扱い と する 。 890 行 で は 、 ゲ ー 
ム で 使用 する キャ ラク タバ パタ ー 
ン ・ デ ー タ を セッ ト し て いる 。 

20> 30 変数 に 初期 値 を セッ ト 。 

40>290 画面 を つく る 。 760 行 で は 、 点 数 
表示 な ど に 使用 する 文字 の 表示 。 

300 キー 入力 。STICK で は 、 カ ー ソ 
ルキ ー か ら の 入力 、INKEY$ で 
は 、 お も に リタ ー ン ・ キ ー や ス 
ペー ス ・ キ ー の 入力 と し て 用 い 
て いる 。 

310 ン 350 STICK に より 得 ら れ た 値 に よ 
り 、 プ レイ ヤー を 上 下 左右 へ 動 
か す 。 

360 新しい 位置 に 何 が ある の か 読 
みだし 、 そ れ が 壁 で ある コー ド 
だ っ た ら 、 元 の 位置 に も どす 。 


62 ウ IF MM く 1 THEN 64 の 9 の ELSE FOR 1= の TO 1 の の の 
sNEXT Ii 

ら 63 の =M-1 SB=5S+299 』LOCATE 25。 昌 PRINT に 時] 上 
UCATE 25。19sPRINT Ws:iIF M= の ウ THEN 64 の ELS 
E 63 の 

64 の ウ FUR TIT= の TO2 の の の sNEXT 

6S ゆ CLS sPRINT sPRINT sPRINT sPRTINT 


66 の PRINT " Let “ss 上 Py nexr pattern ! 
9 

67 ゆ PRINT " 

68 み ゆみ PRINT " \「1m 呈 Hi]1 1 Soft "si 

ME=ME+1 

69 ウ PRINT sgFUR IT= の TO SW の NEXT sBDTOD 3 の 

7 の =M-1 


71@ IF M=g THEN 72 の ELSE FOR I=@ TO 1 の sB 
EEP gsNEXT sGBUT03 の 

72 ウ LUCATE 9。8BsPRINT "GAME DUVER" 』 saLOCATE 

25。11 gsPRINTNs 

73 ウ LUCATE 4。1 の 9:PRINT "TRY AGAIN (Y OUR N) 
ルル 

74 ウ の IF 8>HS THEN HGS=S 

7S の 内 本 =INKEY ま sTF (本 ="y")+( 人 まま ="Y") THEN 

< の ELSETF (本 ="N")+( 人 本 ="n") THEN END siELG 
E 7/S ゅ 

76@ LOCATE 
77@ LOCATE 
7B_ LUCATE 
799 LUCATE 
gg LUCATE 
819 LOUCATE 
2 の LUCATE 
3 の LUCATE 
84 の LOCATE 
8S の LUCATE 
86 ウ LOUCATE 
87@ LOCATE 
BB の _ RETURN 
9 の REM CHR FONT 

7gg READ 本 』TF を ま ="END" THEN COLUR 15。1: 
VPUKE &H2 の の 4 。&HF 1 :VPUKE &H2@1 。&H91 sRETU 
RN 

1 の 
ワン の 
9 の 
4 


25 。1 :PRINT "MONEY" 
25 。2 sPRINT "PANIC" 
25 。4 sPRINT "BUNUS" 
25 。7 sPRINT "SCORE" 
25 。19:PRINT"MAN 。 。" 
25 。1 1 sPRINT Mi 

25 ,13』PRINT"H-B 。 。" 』 
25 。14 sPRINT HSi 

25 。16』PRINT "ACTIUN" 』 
25 。17』PRINT ME 

25 。18 iPRINT "MARP= "』 
25 。19』PRINT Ms 


AD=VAL ("&H"+D ま ) x 昌 

FOR 1I=g TO 7 

READ 本 sh=VAL ("&H"+ 本 ) 

VPOKE AD+I 。D 

NEXT 

BOTD 9 の 

REM DATAa 

hATA Ba。1C。1C。B 。3E 。 の E 。 の B 。1 4 。34 

DaTA 5C 。 の の 。Cg 。C ひ 。42 。7E 。7C 。44 。44 
DATA 24。18。18,3C 。3C 。7E 。7E 。DB 。DB 
DATA 3F , の の 。 の 3 。 の 3 。42 。7E 。3E 。22 。22 
DATA 25。FF 。B1 。81 。B1 。B1 。B1 。 有 1 。FF 
DATA 26。18。24 。42 。 日 1 。 日 1 。42 。24 。1 日 
DATA 23。FF 。FF 。FF 。FF 。FF 。FF 。FF 。FF 
DATA END 


1 の 


370 


380 


390 


400 


410 


420 


430 


440 


450 


460 


470 


480<490 


500 
310 て 550 


っ 60 


570 


560 


990 


600 


610 


620 一 640 


650 て 690 


700< て 730 


740 
750 


760 て 880 
8690 て 1050 


新しい 位置 が 、 財 宝 を 置く 場所 
で あり 、 か つ 財 宝 を 持っ て いな 
いと き 、 元 の 位置 へ も どす 。 
その 位置 が 、 財 宝 を 置く 位置 で 、 
か つ 財 宝 を 持っ て いた と き 、 そ 
の 位置 に 財宝 を お き 、 点 数 を 増 
や す 。 7 個 と も 置い た ら 、 一 面 
クリ 。、 

その 位置 が 、 財 宝 で な いと き は 、 
420 行 へ 。 

Y 座 標 が 1 (財宝 の あり か ) で な 
いと き は 420 行 へ 。 

財宝 を まだ 持っ て いな けれ ば 、 
財宝 を 取り 、 そ の 位置 を スペ ー 
ス で クリ する 。 そう で な けれ 
ば 、 元 の 位置 に も どす 。 

スペ ー ス ・ キ ー が 押さ れ て いて 、 
か つ ワ ー プ が まだ で きる な ら 、 
570 行 へ 。 

まえ に いた 位置 を スペ ー ス で ク 
リア し 、 新 し い 場 所 に 人 を か く 。 
点数 の 表示 。 

エネ ルキ ー を 減ら し 、 も し な く 
な っ た ら 、700 行 で プレ イヤ ー を 
1 人 へ ら す 。 

犬 1 を 動か す 。 も し 、 犬 が 左右 
の 壁 ま で きた ら 、 そ の 動く 方向 
を 逆 に する 。 

次 の 大 の 位置 に プレ イヤ ー が 
いた 場合 、700 行 で 1 人 へ ら す 。 
プレ イヤ ー が 近づい た と き 、 犬 
は プレ イヤ ー の ほう へ 向かう 。 
犬 1 を 描く 。 

450 て 500 まで の ルー チン と 全 
《 同 じ 。 

300 行 へ も どる (300 行 て 560 行 
まで の ルー プ )。 

スペ ー ス ・ キ ー( ワープ ) を 押し 
た と き の 処 理 。 プ レイ ヤー の 新 
し い 位 置 を きめ る 。 

新しい 位置 が 壁 だ っ た 場合 、570 
行 へ 。 

前 に いた 位置 の プレ イヤ ー を 消 
し 、 新 し い 位 置 に プレ イヤ ー を 。 
ワー ブフ 残り 数 表示 。 

お 金 を 全部 と っ て し まっ た と き 
の 処理 。 エ ネル ギー を 減ら し 、 そ 
れ を ボー ナス と し て 得点 に 加算 。 
ワー ブ プ の 残り 回 数 が ある と き は 、 
ワー ブ プ 1 回 分 を 200 点 と し て 、 得 
点 に 加算 する 。 

次 の 面 に 行く よう に と 表示 し て 、 
各 面 ご と の 初期 化 ル ー チ ン 30 行 
2c ど to 

ゲー ム オ ー バ ーー 処理 。 プ レイ ヤ 
ー の 残り 人 数 を 確認 し て まだ 残 
っ て いた な ら 、 そ の 面 を も う 1 
度 く り 返 す 。 も うい な いな ら 、 
ゲー ム オ ー バ ー と 画面 に 表示 し 、 
再度 や る か どう か 質問 する 。 
ハイ スコ ア の 処理 。 
再度 や る か 否 か 、 実 際 に キー 入 
力 を 受け つけ る の は 、 こ の 行 。 
得点 表示 。 

キャ ラク タバ パタ ー ン ・ デ ー タ と 
セッ トル ー テ チン 。 


7 ラ 7 


が 。 
ルル 


ム “ ン 
し 


上 に も 下 に も 敵 が いる と いう 、 迷 怖 
の パニ ッ ク ・ ゲ ー ム 。 
最初 に に 、 ジ ョ イ ・ ス ティ ッ ク か カー 
ソル ・ キ ー か を 選択 し て 、 ゲ ー ム は じ 
め ./ 自 機 を 上 に 向け た り 、 下 に 向け 
た りす る に は 、 ス ティ ッ ク な ら 前 後に 
動か せ ば いい し 、 カ ー ソ ル ・ キ ー な ら 
[ILMI の キー を だ だけ ば いい 。 

攻撃 は 、 ス ペー ス ・ キ ー ま だ は トリ 
ガー。 敵 の 中 心 に あたら な いと 効果 は 
が い 。 

敵 の 攻撃 は 、 1 発 で キミ を た お し ち 
ゃ や うけ ど 、 キ ミ の 攻撃 は 数 発 あ た ら な 
いと 敵 を た お せな い 。 

下 の 青 い 敵 は 、 3 発 。 上 の 赤い 敵 に 
は 10 発 、 を それぞれ ぶち こん で や る こと 
で 、 グ シャ ン / と 破壊 で きる の だ 。 

上 の 敵 に ね らい を 定め て うち 続け て 
いる と き に 、 ふ と 気づい だ た ら 、 背 後に 
下 の 敵 が 忍び より 、 い つの ま に か 目 分 
の ほう が や られ て い だ …… な ん て ね 。 

上 と 下 に 同時 に 気 を 配り な が ら 、 フ 
ラフ ララ 動く 敵 の 真中 に 弾 を ぶち こむ の 
は 、 な か な か * 吾 難 の 技 。 そ れ も 、 何 発 
も ぶち こま な いと 破壊 で き な いな ん て 。 
で も 、 つ い 夢 中 に な っ ちゃ う ぞ 。 


@⑯「 テ クノ ボリス 』 83・ 7 月 号 


原作 : 後藤 靖 


上 空 を 見 あげ れ ば UF O、 地 上 を 見 や れ ば や っ ぱり UF O。 
上 か ら 下 か ら 発 射 さ れる ミサ イル を よ け な が ら 、 機 敏 に 戦え ./ 
し か し 、 敵 の 機体 は 何 重 も の バリ ヤー に 包ま れ て いる の だ 。 


ププ 用 用 省 川 


Beasee あ 


。 三 さき 党 で? 
牛 つ で こ S- 


。s は *S の へ の て 慎 計 で ささ ざき 


押 Q て 部 浴 均 生 へ 中 ば 4 
ょ いり と 移 き ( (びと 戦 の 


2 の SCREEN 1 COLOR 15。4。7』CLEAR sCLS 

3 の LUDCATE 1 。 日 sPRINT "JOUY BTICK を つか いま すか 
?(y/n) " 

4 の A$=INKEY を 

SO IF 人 ="n" OR を mrN" THEN 7 の 

6 の IF AS"y" DR 人 $*="Y" THEN 8=1 ELSE 4 の 
7 の SCREEN 2.。9』CLS iRESTDRE :SC= の : BA= の : BB= の 
BO FDR Is= の TO 7 

9 に て て 980 60 


1 の の FUR J=1 TO 

1 1 の READ D* : ら お を = を +CHR を (VAL("&H"+D を ) ) 
1 2 の NEXT J 

1 3 の SGPR ITE*【( { ) = を 

14 ゆ の NEXT 1I 


15 の DATA 1 の 。1 の 。1 の 。1 の 。1 の 。1 の 。1 の 。 の 0 

16 の DATA の の 。CO 。FF 。C3 。C3 。Cd 。 の 1 。 の 1 

17 の DATA の の 。 の 3。FF 。C3 。C3 。C3 。B の 。B の 

18 の DATA の 9.。 の 1 。 の 1 。Cd 。C3 。C3 。FF 。CO 

19 の DATA の Oo.。B の .。 ヨ の 。Cd 。C3 。C3 。FF 。 の 3 

2 の DATA 日 5 。22 。14 。E ウ 。13 。24 。49 。 の の 

21Q DATA の 1 。 の 3 。D3 。D3 。FF 。D3 。D3 。1 1 

22 の DATA BB の.。CO 。CB 。CB 。FF 。CB 。CB ,B8 

23Q X=4 の 』Y=1 :X( の )=X+BsX(1) =X+B :Y (の ) =3 の : 
Y(1 ) =15 の 』J=5 :R=3 の 


F J く 1 THEN 119M 


4SiM 


PUT SGPRITE 3g@。(295 。149) 。7 。3 
PUT SPRITE 31 。(213。14@) 。7。4 
DPEN "BRP』" AG 昔 1 

hRAM "EBM227 。143" 

PRTINT 共 1 "= リョ 

hRAM "BM2 の 5 。3" sCDLDR 3 

PRINT 1 "SBCORE" 

hRAM "EBM2Q5 。53" 

PRINT 1 。SC 
CLDGE #1 
LINE (日 。B) -(2g 。1 ヨ み ) 。2。B 
LINE (13』13)-(195。175) 。2。B 
PAINT (9。9) 。2 
LINE (13。9 の ) 一 (22 。99) 。2 。BF 
LINE (1 。9) 一 (195 99) 。2 。BF 
6@ BUSUB 78 の 


IF STRIG(S) THEN UN Y GUSUE 66 め の 。 74Mg 
nn デ =INT(RNLI(1) \R) siIF R く 3 THEN PLAY "0 ロ 4 


Ld2CUEFGREUSCHEFGRB" siFUR エ =1TU1MsNEXTsi 
BUTO 7@ 


4 ら 6 
47g 
48M 
49 
っ MM 
ご 1 以 
/ 

ご マウ 
ご づ ゆ 
っ つ 4 
っ ご 
っ つら ゆみ 


61M ゆ 
ら 6 の 
63 の 
ら 64 
6 うら ゆ 
66@ 
6 7M ゆ 
68M ゆ 
ら 69 
7 
71M 


CM BEEF : Bn=BA+1 』TF BA>9 THEN BA= 5 じ = ら じ 
+ ら Ms 


7 づ ゆ 
74 
7S 
76 ゆ 


FOR 1=@ TO 1 
X(I)=X(1)+(INT(RNLI( 1 ) x*3) -1 ) x 昌 
IF X(1)< 14 THEN X(1)=X(I)+ 昌 
IF X(1) >176 THEN X(1)=X(1) 
PUT SPRITE ITx2+5。(X(I) 。Y(I) ) 。6-1 。6 
PUT SPRITE 1x2+6。(X(1)+ 日 。Y(I) ) 。6-1 


NEXT 1 

IF A<3 THEN BUSUB 93w 

IF <2 THEN BUSUE 1Q2 の 

GOTO 42w 

ーーーーーーーーーーー KEYーーーーーーーーーーー ー 
T=1 THEN Y=1 :GUTD 63g 
T=5 THEN Y=2 ょ BUTU 63M 
T>5 AND .T<9 THEN X=X- 日 
T>1 NL T< 呈 THEN X=X+ 昌 
IF X<22 THEN X=X+ 晶 

IF X>174THEN X=X- 晶 

PUT SPRITE 1 。(X 。9 の ) 。7 ローYx2 
PUT SPRITE 2。(X+B。9 の ) 。7 。6ーY*2 
RETURN 


FOUR C=B2 TU 3w STEP- 晶 
PUT SGPRITE Q。(X+4 .。C) 。9 

NEXT 

PUT SGPRITE の 。(@。2 の 9) 

IF X<X( ゆ )-2 DR X>X( ゆ )+2 THEN RETURN 


R=R-5 iBTU B2w 
RETURN 
ーーーーーーーーー ヒ * シタ ーーーーーーーーーー 
FUR C=9 TO 15 STEPF 

PUT SPRITE の @。(X+4.。C) 。9 


し 
間 


X(O),Y(O) 
X(4)Y17 


70 
80>140 


150<220 
230 

240<250 
260>270 
280 て 350 


360 て 400 
410 
420 
430 


440 

450 
460 て 520 
530 て 520 
550 
560 て 

う 70 て 580 


990 て 620 


630 て 650 


変数 リス ト 
砲 台 の X 座 標 
爺 台 の 向き 。 1 … 
上 の 敵 の 位置 

下 の 敵 の 位置 

介 台 の 数 

敵 の 攻撃 の 催 率 
ガーン ル : 完 
ーー 4 ジイ < 
ペケ テマ ツン 
キー まだ は ジョ イ 
・ ス テイ ツク の 訪 向 
敵 に あ だ つ だ 回 数 
の 記憶 用 

スコ ゴア 

汎用 (ルー ノブ 等 ) 


ジョ イ ・ ス ティ ッ ク を 使う か ど 
うか を 選択 する 。 使 う 場 合 は 変 
数 S を 1 に する 。 

SCREEN 2 を 設定 。 

スプ ライ ト の キャ ラク タバ パタ 
ー ン を 定義 する 。 ス プラ イト キ 
ャ ラク タ は 0 か ら 8 ま で 使っ て 
いる 。 

スプ ライ ト ・ デ ー タ 。 
変数 の 初期 値 を 設定 。 
画面 の 消去 。 

右 下 に 砲台 を 表示 。 

スコ ア や 砲台 の 数 等 の コメ ント 
表示 。 ス クリ ー ン 2 を 指定 し た 
の で その まま 文字 を 表示 する こ 
と は で き な い 。OPEN し た 後に 
DRAW 文 で 座標 を 指定 し 、PRI 
NT 壮 1 て 出力 する 。 
外 枠 の 表示 。 

英 と 自分 の 砲台 を 表示 する 。 
メイ ン ル ー チ ン 

キー 入力 が あっ た 場合 に その 
処理 ルー チン へ ジャ ンプ させ る 。 
スペ ー ス ・ キ ー( ま た は ジョ イ 
・ ス ティ ッ ク の トリ ガー ボタ ン ) 
が 押さ れ た 時 の 判定 。 

英 の 攻撃 の 確率 を 変数 A に 代入 。 
英 の 移動 お よび 表示 。 配 列 変 数 
X (|) に 2 つの 敵 の 座標 が 入っ 
て いる 。 

確率 に 応じ て 敵 か ら の 攻撃 娘 理 
へ ジャ ンプ させ る 。 

以降 メイ ン ル ー チ ン く < くり返し 。 
キー 入力 処理 。 

上 下 の 向 き を 変え る 。 
左右 の 移動 と 座標 が 画面 か ら は 
み で な いか の 判断 。 

スプ ライ ト で 砲台 を 表示 し て 復 
帰 。 


っ 次 リ 
つ ペペ ス 
く 1 ト 
ジ は 


に 


〇 


ん ル ノ 


@ ダブ ル ・ 


7 7 
7BW 
79 ゆ 
dM 
d1 ゆ 
2 
に 代 1 
4 
dS ゆ 
6 ゆ 


BUTO 
9 7 
98M 
99M 
1 MM 
11MW 
1MZM 
1 3M 
1 ゆ M4 以 
1 SM 
s5UT 
1 6 ら ゆ 
1M /W 
1 QBM 
1 9 以 
1 1 MM 
1 1 1 以 
1 1 ゆ 
1 1 3 
1 1 4M 
1 1 SW 
1 1 6M 
1 1 7M 
1 18M 
1 1 9 
1 2MM 
12 1 
1 ママ MM 
EE 
12 コ 3 以 
1 つ 4 ゆ M 
12SM 
。/ し 


クラ ッシュ の つづ き 


NEXT C 

PUT SGPRITE の 。( の 。29) 

ITF X<X(1)-2 DR X>X(1)+2 THEN RETURN 
BEEP s BE=BB+1 s IF BB<3 THEN RETURN 

BB= の : 5 じ =SC+2 s ド =R- 1 

SUUND 6。31 SUND 7。7 

SUUND 日 。16:SHUND 11.,@ 

SDUN 12」 5:sSDUND 13.。0 

PUT SPRITE Y*2+3』(X(Y-1)。Y(Y-1) ) 。6。5 
PUT BPRITE Yx2+4。(X(Y-1)+ 日 。Y(Y-1) ) 。6 


し LINE (2Q5 。53) (25 の 。61 ) 
DPEN "BRPi" AS 菩 1 
COLOR 3:HRAM "EBM2Q5 5 は" sFRTNT 柱 1 5 


1 。BF 


じ CLUSE 昔 1 
FUR IIT=1 TO SMMsiNEXT 
RE 


FOR 1=38 TU 9 STEP 
FUT SPRITE 9。(X(@)+4。1) 。4。 の 
T=STICK (SB) iTIF TS>W THEN BUSUB 59M: 
9 の 
FDR II=@ TU 6iNEXT 
NEXT 1 
PUT SFPRITE 9。(@。209) 


IF X() >X-3 AND X(2)<X+3 THEN 1110 
RETURN 
ソーーーーーーーーー コウ ケ " キダ ーーーーーーーーーー 


FUR 1=14TO 94 STEP- 昌 
PUT SPRITE 9。(X(1)+4。1) 。4。 の 
T=STICK (GS) :TF TX>M THEN GUSUB 59 
17 
FUR II= TO 6iNEXT 
NEXT 1 
PUT SPRITE 9。( ゆ ,29) 
IF X(1) >Xー3 NL X(1) <X+3 THEN 111@ 
RETURN 


コテ ゴー1 


IF 内 まま ="N" 
LGS sENHL 


UR Q ま ="n" THEN CULUR 1S。4 


126 み ウ GUTOU 1 どう 


7 を タ ひ 


660~700 


710 


720>730 


740 て 810 
8620 て 860 
870<920 


930 
940<>990 


1000 て 1010 


上 へ ビー ム を 撃つ 。 こ れ も ス プ 
ライ ト を 使っ て いる 。700 行 は 最 
後 の ビ ー ム の 残像 を 消す た め の 
も の 。 
ビー ム が あたっ た か どう か の 判 
定 。 
あたっ た と き の 処 理 。 も し 10 回 
目 の 命中 の と き は 爆発 処理 へ と 
ぽ す 。 
下方 向 の ビー ム 処 理 。 内 容 は 上 
方 向 と 同様 。 
爆発 音 と 爆発 し た 時 の キャ ラク 
タ を 表示 する 。 
スコ ア を 表示 し た 後 、 復 帰 。 
上 の 敵 か ら の 攻撃 サブ ルー チン 。 
ビー ム を 移動 させ る 。 ビ ー ム 移 
動 の 間 で も こち ら が 動く こと が 
可能 。 
あたっ た か どう か の 判定 。 


1020 て 1100 上 方 向 の ビー ム 処 理 。 つ まり 


1110 
1120 


1130 て 1170 


1180 
1190 


1200 て 1220 


1230 て 1260 


4 


NN 


NN 


下 の 敵 か ら の 攻撃 で ある 。 内 
容 は 740 行 1010 行 と ほぼ 同 
様 。 

敵 に や られ た と き の 処 理 。 
砲台 の 数 を 1 減ら す 。 

砲台 の 爆発 表示 と 爆発 音 。 
メイ ン ル ー チ ン へ 復帰 。 
END 処 理 。 

スク リー ン を 0 に も と ど と し て 
GAME OVER” を 表示 。 
も う 1 度 ゲ ー ム を する か どう か 
の 入力 待ち 。 


MNU の 


PUT SFPRITE 1 。(X。9@) 9。5 

PUT SPRITE 2。(X+ ヨ 。9 み ) 。9 

SDUNLI 6』2zSDUNL 7,。7 

Snuiyh 8。16gSHUNL 11。M 

SDUNLI 12 。1QiSUUNTI 13 .。 

RETURN っ 40 レ し 
ーーーーーーーーーー ENLI ニ ーーーーーーーーーーー NN 

SCREEN MiCULUR 9 

LOCATE 12。BsFREINT "BAME OUVER 2 の 

LIUCATE 1。1ggFRINT "TRY GBRINP LTY/N ン ょ れ な い “ 
まま = ニ INEE YY キキ 

IF 本 ="Y" OUR 本 ="y" THEN 7 


い 
え 3 デバ 
と AN プン ッ ア 
ww ど s 福 
こく 
も 和 ヘ が アゲ 
we へ < 拓 
埋 > SN ュ ア 
Ne 4 
に の 
で いう 9 
> ンス 『 
KN の だ で > / 
Se く へ ヘン アマ マト に 銀 を 
ee ua アプ の ーー 
アマ ーッ 2 


ここ は 、 イ ン ベ ペー ダー が 地上 か ら バ 
カス カ わ いて 〈 る 異 星 の 上 空 。 キ ミ の 
ベ ペース ・ ス テー ショ ン (画面 の 下 の ほ 
う 、 左 右 両端 に ある 突起 ) に は 、 ま だ 
仲間 が 残っ て いて 、 助 け を 求め て いる 。 

イン ベー ダー を か わし て 、 地 上 へ 降 
下 し 、 ベ ー ス ・ ス テー ショ ン ま で か け 
つけ る の が この ゲー ム の 目的 。 

だ だ 、 降 下す る の は な か な か 上 難しい 。 
目力 で は 下 に 行く こと が で き な い の だ 。 

地上 を 左右 に 往復 し て いる 味方 機 か 
ら 発 凌 さ れる 降下 エネ ルギー (*) を 
キャ ッ チ すれ ば 、 1 レベ ル ず つ 下 が っ 
て いく 。 スス ペース ッッ キ ー を だ だ け ば 、 
味方 機 か ら こ の エネ ルギー が 発射 され 
る の だ けど 、 こ れ を キミ の 宇宙 船 の 八 
め 下 て で 受けとめ よう 。 

キミ の 宇宙 船 の 移動 は カー ソル ・ キ 
ー だ 。 左右 の キー と 上 方 向 の キー だ け 
が 使え る 。 

20 と 表示 る れ た 高度 に 行く まで は 刻 
一 刻 と 燃料 (FUEL) が 減っ て いく 


変数 リス ト 


降下 エネ ルギー の 
発 映 有 無 
障害 物 の 種類 
降下 エネ ルギー の 
動く 万 向 

エネ ルギー 


虹 地 の X 座 標 

大 地 の 秘 動 亡 向 
子 軸 船 の 位置 
時 間 
降下 エネ ルギー の 
位置 

ボー ナス 点 


大 


@「 プ ログ ラム - ボ ジ エ キット 』VO|.1 原作 : 友 才 


圧倒 的 多数 の 敵 に 囲ま れ た 、 わ が ベー ス ・ ス テー ショ ン へ 急げ 。 
だ が 、 刻 一 刻 と 減っ て いく エネ ルギー に 心 は あせ る ば か り 。 
降下 する こと が こん な に 難し いこ と だ っ た な ん て / ノ 


まま ほ ま まま 持 
まま る 
まま まま る 

は まま まま まま すす 


| 真中 の ベル 型 ロ ケッ ト が キミ の あや つる 宇宙 


まま 


船 。 ま わり を ウジ ャ ウジ ャ 取り か こん で いる の 


は 、 燃 料 を 食い つぶ す イ ン ベ ペー ダー だ 。 お っ と っ と 、 米 だ け は 味方 か ら 送 られ て きた 降下 エ 


ネル キー だ か ら 積 極 的 に 体 あ た り し よう 。 


けれ と ど と 、20 よ り 下 で は 逆 に 増え て いく 
の で 、 そ こま で きた だ たら ひと 安心 だ 。 ま 
だ た 、 下 か ら 出 て くる 圭二 士 ? も 味方 の 
燃料 補給 機 だ か ら 、 立 ち 寄 れ ば 燃料 が 
増え ちゃ う ぞ 。 

燃料 が な く な る と ゲー ム オ ー バ ー。 
で も 、TIME は 0 に な っ て も だ いじ ょ 
うぶ 。 こ れ は 、 1 面 ク リア デア し だ た と き の 
ボー ナス 点 に 加算 する た め の も の だ 。 
下 ま て 行き つい た ら 、 ち ょ っ と だ け 
具 し て 、 左右 どちら か の ベー ス ・ ス 
デー ショ ン に 村 づ けし よう 。 "Very 
Good” と 出 て 、 ボ ー ナ ス 点 が 燃料 に 


加算 きれ 、 次 の ゲー ム へ 。 今度 は 、 加 
算 る れ た 燃料 を 使っ て 再 挑戦 だ 。 


キヨ ョ ウイ ノダ ッシュ ツ 


1 SCREEN1 。 。 の iMILTH 32 EEYOFF :BDSUE 2 : 


BUTOU 48M 


< ゆみ LEFINT 一 Z ュ ミロ = iL 1 = ニ 1 :XX= ニ 1 ヒー ニ 1 =:F リ = ニコ 


5 ロロ テモ 1 8 ロ 1 =1 


7 


@ キ ョ ウイ ノダ ッシュ ツ の つつ き 


39 LOCATE 1 。29』PRINT" ア "sgLDEATE 3 の 。29sPRI 

NT" ア "ssBDSUB 360:LDCATE 20。3iPRINT "%" 5 
PLAY "04BRBBBBBBBBD5C" iLDEATE 29。3』PRINT 
り "ssX= ニ 2 』Y=3』T=5 の の 

4 の POKE&HF3B の 。32 :G=STICK( の ) saON 8 BOSUB 2 

4 の 。 1 9 の 。22 の 。 1 9 の 。1 9 の 。19 の 。2 の 。19 の 

5 の LUCATE X。YsPRINT "%" ョ sLDCATE INT(RNH( 
1 ) *2B) +2 。22 sPRINT "を" 』sHN BA BUSUB 269。27 
の 。2B の FU=FU+(Yー1 の ) 』K=INT (RND( 1 ) *3Q の ) +1 1 

F K<3 THEN LUDCATE INT (RND(1) x*22) +6 。22 P 
RINT 56 キ 十 十 98 

6 の =T-1 sIF T<1 THEN T= の 

7 の IF (STRIG( の ) =ー1 ) *(B= ウ ) THEN =1 

Ba IF FU<@ THEN LUCATE 5。 の iPRINT "FUEL : 
の "ssBDTD46 の 

9 の IF XX<3 THEN XX=3iT=ーI saELSE IF XX>29 

THEN XX=29 』 ユ =ー1 

1 の IF RND(1)*1>. 昌 THEN し =ー し 

11 の XX=XX+LsIF (X=2)x(Y=2) ロ R (X=29) x(Y 
=2 み ) THEN 37 の 

12 の LUCATE XX。23』PRINT 

9 。3 の の iLDCATE 5。 の iPRINT 
TE 24 の isPRINT "TIMEi" iT 

13 の IF VPEEK(&H1B+X+(Y+1 ) *32) =ASC("+") 
THEN FU=FU+2Q sLUCATE X。Y+1iPRINT " "8G 

TO 15 

14Q IF VPEERK(&H1BQ+X+(Y+1) *32) く >32 THEN 
FU=FU-3 の の 

15 ・ 

16 の IF Y<2 THEN Y=5 

17 の =INT (RND(19*55) ) +1 saC1=INT (RND (1 ) * 品 ) + 
1 

18 LUCATE X。YiPRINT " 


り 昔 " ョ sgUN 7 
JFUEL "9 ョ FUs も 


"ssLUCATE XX 。 了 _ 


RINT " "iiLOEATE X1。Y1:PRINT " "jsPOKE 
HF3B 。28 siLUCATE 1 ,23:PRINT iBTO 4 の 

19 の RETURN 

29 の IF X>2 THEN X=Xー1 

21 の RETURN 

22m IF X<29 THEN X=X+1 4 
23@ RETURN 了 
249 IF Y>1 THEN Y=Y-1 ば 
25g RETURN 

26@ LUCATE INT(RND(1 ) *2 昌 ) +2 。22 giPRINT "/" 


: Ga=2 siRETURN 
27 の LUCATE INT(RNH(1) *2 昌 ) 2 。22 ョ PRINT "= リ 
sGn=d sRETURN 

28B み LUCRTE INT(RNH(1) 2B)+2 ZsPRINT "。 
sGn=1 sRETURN 

フワ の X1= ニ XX ョ sY イ 1 ニン 1 : ロ = ニ ジ ョ レジ テー1 giRETURN 

3 の の Y1=Y1+TL2sX1=X1+TL1sTF X1<2 0R X1>29T 
HEN L1=ーL 1 

31 の の IF Y1 く 2 0R Y1>2 の THEN 上 ジテ ーL2 

329 LUCATE X1。Y1sFRINT" テ Pi 

区 人 1 ん 
C("%") THEN IF Y<19 THEN LUCATE X。YsPRIN 
TV "asaY=Y+3sLUCATE X。YsFPRINT" 』iX=Xー し 1 


72 


ら 
W 
ら 


IF VPEEK (&H1BO+X 1+L1+(Y1+L2) * ヨ 2) =AG 


90 一 100 
110 


120 


130 


140 


160 
180 

190 

200 一 210 
220 一 230 
240 一 250 
260 一 280 


290 一 350・ 


ン 2 と 


レコ 


の ^ 


0 
0 ( 計 生 


画面 の 初期 化 。 キ ャ ラク タ パ タ 
SM の 秒 
変数 の 初期 設定 。 

ゲー ム 用 画面 を つく る 。 

POKE &HF3B0 、 32 で 1 行 の 文 
字数 を 32 に 設定 。WIDTH 文 で 
えて し まう の て で 直接 ワー クエ リ 


ア を 書き か えて いる 。 キ ー 入 力 。 


基地 の 表示 と 障害 物 の 表示 を 行 
う 。 エ ネル キー を へ ら す 。 
時 間 を へ ら す 。 


スペ ー ス キー が 入力 され た うえ 、 


まだ 下降 エネ ルギー が 発射 され 
て いな いと き 。 

エネ ルギー が な く な っ た と き の 
処理 。 ゲ ー ム オー バー へ 。 
基地 移動 に 関す る 変数 の 設定 。 
宇宙 船 が 、 画 面 左 右 の 蔵 地 に つ 
いた か どう か の チェ ッ ク 。 つ い 
た な ら 1 面 ク リア 。 

G の 値 に よ り 下降 エネ ルギー を 
発射 ルー チン へ 。 エ ネル キー、 
時 間 の 表示 。 

中 有 2A0 の (9 還 に モネ ルル 
が あっ た と き 。 

宇宙 船 の 次 の 位置 に 障害 物 が あ 
MK と き 。 

宙 船 が 、 上 昇 し すぎ た と き 。 
Le お の 
何 も せ すず リ ターン 。 

右 。 

左 。 

上 昇 。 

GA の 値 に より 、3 種 類 の 障害 物 
の 表示 。 
0 
ネル ギー の 位置 に 宇宙 船 が いる 
と き は 、 宇宙 船 を 下降 させ る 。 


2///(( 


3 ツ 


HE 


/ 


34 の IF VPEEK(&H1BM+X1+L1+(Y1+L2) * コ 32) く > コ 
< 「HEN LUCATE X1 。Y1 siPRINT " "sgB= ウ RETURN 
9353 ウ RETURN 

J69 LOCATE 1 6』PRINT "ee" ョ ssLUCATE 3@。6 ェ 』FR 
INT "eeP ssLOCATE 1 BsPRINT "d" ョ saLUCATE 3@ 
8sPRINT "dP ssLUCATE 1 。1msPRINT "CV" ョ sgLUCA 
TE 3M。1giPRINT"CVU asgLUCATE 1 。12sPRINT "DB"s 
iLUCRTE 3 の 。12gPRINT"DB "asLUCATE 1 。14sFRIN 
TYPa" ssLUCATE 3 の 。14:iPRINT"'a" 』sRETURN 

7g ^“ 

38g_ LOUCARTE 15。1@iFRINT "VERY GOOH 
TE S。 ウ giFU=3 ゆ MgPRINT "FUEL 5" ョ FUs 
37 の ウ FU=FU+1 ウ sPOUKE&HFHBQ 。32 :BU=Tx1 の sIF BO 
く ゆ THEN BOO=M 

4 FUR I=EO TO 1@ STEF -1@iFLAY "SL64G 


「 sLOCR 


41 ウ LOUCATE 15。15sBH=EBH-1 の siPRINT "BUNUGS 』" 
sBU iLUCATE S。 ウ igFU=FU+1 ウ sgPRINT "FUEL 』" ョ FU 

42 ウ NEXT iLUCATE 15。15sgPRINT "BONUS 』 si"s 

1=G1+1 sTF ロ 1>2 THEN ロロ =1 

43g * 

44 CLS iLOCATE @。2 の sgPRINT "リア" ョ sgLUCATE 31 
>2 ウ sPRINT "リア リョ sgBUSUB 36 み MiLUCATE X。YsiFRINT 
。 ssLUCATE 2 。3sPFRINT "リョ sgLUCATE 1 の 。1 の 

PRINT "YOU CAN HARD GAME "siLUCATE 1 の ウ 。1Ws 

PRINT SPACE も (19) 』:X= ニ 2 : Y= コ 3 : ロ = の 

45M 「=5 ゆ ssGUTO 4 

46 ゆ 

47 ウ 人 も ="PLAY OUT "giX=15sFUR 1 エ =1TO8B iLUCATE 
X。1sPRINT MI まま ( 谷 本 。T 。1 ) 』 sgX=X+1 saNEXT si ロ 1= 
1 : ロ = ゆ ウ sGUTO 48 み 

48M 

49 負 <“ 

っ 9 の LUCATE 1 の 。21 gsPRINT"HIT 5G/ KEY TO ST 

ART" 

つっ 1 の いま =INKEY ま 』TF MM ま =" ら 6" 

LS sGUT 有 U 2 ELSE 51 ゆ 

S2Z の ウ PLAY "oo5g2ab" 

っ 3 の REAL 本 』TFI 和 まく > "ENH" THENAD=VAL ( "&&H"+D 
も) xBsFURI=WTO7 』:REALII ま sVPUEE AD+T 。VaL("&H 
リ + す 本 ) sNEXT sGUTU 53 

っ 分 の RETURN 


UR いま ="5" THEN C 


つい ゆめ 
っ ら 6 の 
っ 7 
っ dBM 
こっ 7 
6 の 


LT 全 


25 。1 日 。18。3C 。3C 。C 。3 ビ 。66 。E フ 
23 。18 。3C 。7E 。FF 。FF 。FF 。FF 。FF 
2E ,18,3C 。77 。DB 。FF 。66 。3C 。nE 
2F 。18 。24 。66 。99 。99 。66 。24 。1 
3D 。B1 。42。18。18。24 。42 1 。18 
24 。B の 。24 。41 。1 の 。B の 。24 。 の の 。B2 


ら 61 , の の 。CF 。49 。49 。49 。49 。49 。EF 
62 。 の の 。 じ F 。4 昌 。48 。4F 。41 。41 。EF 
63 。QQ 。EF 。29 。29 。E9 。B9 。B9 。FF 
64 。 の の 。EF 。28 。28B 。EF 。8B1 。 日 1 。FF 
65 。 の の 。EF 。29 。29 。E9 。29 。29 。EF 
B1 。FF 。FF 。FF 。FF 。FF 。FF 。FF 。FF 
END 


360 
380 


390 一 420 
440 
450 


470 
500 一 510 
520 
530 て 540 


550 て 670 


基地 、 高 度 な どの 表示 
1 面 ク リア 。 エ ネル ギー を 初期 
ルル. 表示 . 

ボー ナス 点 の 追加 。 
基地 の 表示 。 

区 2D0G4 どの が = スラ 
ト 。 

ゲー ム オ ー バ ー。 

スタ ー ト 前 の キー 入力 待ち 。 
音 を 出す 。 

キャ ラク タ パ タ ー ン ・ デ ー タ の 
セッ ト . 

キャ ラウ クタ パタ クー シュ > データ 。 。 


マー 


し - フ 


7 タラ 


@ 「 テ フ ノ ボ ポリス,」/84・6 月 号 A.TAKADA 


ハツ カネ ズミ や ハム スタ ー な ん か は 
「 か わい い /」 っ て いう 人 が 多い けれ 
と ども 、 家 の 中 を 走り まわ る ネズ ミ は 、 
どう も 嫌 わ れ も の が 多い みたい 。 て 
この ゲー ム は 、 そ ん な 嫌 わ れ も の の ネ 
ズミ が 大 和 群 で 登場 する の だ 。 


変数 リス ト 


ネズ ミ の 総数 
フル メー や アー の 人 数 
穴 の 中 の ネズ ミ の 
贅 

ネズ ミ の 位置 
スコ ジア 
プレ ー ヤ ー の ( 革 
火 の 位置 


共和 詩 生 ブ レーツ 
ー の 秘 動 旦 の 比 
ネズ ミ の 位置 等 
V-RAM 完 頭 ア ド 


BOX LIN 上 サ プ 
ルー チン 用 変数 


MIICE 


ちっ ちゃ な 天井 の 穴 か ら バ カス カ 現 れる ネズ ミ の 大 群 。 
頼り に な る の は た っ た 1 本 の 小さ な ヤリ 。 
逃がし た ネズ スミ の 爆発 に 所 を つけ ろ / 


天井 に あい た 小さ な 究 か ら 次 々 に 飛 
び 出 し て くる ネズ ミ が 、 あ っ ちこ っ ち 


に 移動 し て 、 キ ミ に 襲い か か っ て 〈 る 。 


で 次 の ヤリ を 投げ られ な い の で 、 や だ た 
ら 投 げ て いる と ヤバ イ こ と に な っ て し 
の 


[S] キ ー で 、 スタ ダー ト 。 レー 


ー ス ・ キ ー 


ソル ・ キ ー 
(まだ た は ジョ イ ・ ス ティ ッ ク ) て 左右 
に 動い て ね らい を 定め 、 手 に 持っ た ヤ 
リ で ネズ ミ を 撃退 し よう 。 ヤ リ は スペ 
(まだ は トリ カー) て 上 の 


ネズ ミ は 床 ま で 降り きっ て し まう と 
な ぜ か 大 爆発 。 こ れ は も う 避 ける 方 法 
が な く 、 一 巻 の 終わ り 。 プ レイ ヤー が 
3 人 や られ だ た ら ゲ ー ム オー バー だ 。 リ 
ブレイ は 図 キ ー を 押 そ う 。 
ほう に 飛ん て い (。 だ だ し 、1 度 ヤリ 大 井 の 究 から ネズ ミ が 50 匹 出 て くる 
を 手 ば な し た ら 、 そ の ヤリ が 消え る ま まで 持ち こたえ る と 、1 面 クリ ア だ 。 


FALL MICE 


19 REM XXX※※※※ シヨ キ セッ テイ ※※※※ 

29 SCREEN1:WIDTH 32:CLS:KEY OFF:DEEINT A 
-Z: BK も =CHR$ も ( 29 ) : NX も =CHR も (31 ) : UP も =CHR$ も (3 
) 

39 M=1:E=59:V=3:S=9:X=13:DIMC(39 ) : GOSUB 

469:GOTO 489 

49 FOR I=5 TO 21 STEP 4:C(1)=9:NEXT 

59 COLOR1 9 , 1 ,1 

69 REM ※X※※※※※ 力 ~ メン 区 区 

79 CLS:T1=1:T2=9:T3=25:T4=23:CH=135: VA=& 

H1899:VX=32:GOSUB 699 

89 FOR IT=4TO19:LOCATE 2。I:PRINT" 
や や や や や や や や や や ゃ や ゃ や "<NEXT 

99 LOCATE 13.2:PRINT" ゃ "ELOCATE 27.3:PRIN 

TPPALL"ILOCATE 27.5:PRINT "MICE" 

199 LOCATE 26.19:PRINT "SCORE":LOCATE 27。 
29:PRINT"1 メン "ELOCATE 26.15:PRINT" ぁ 3 " 
:LOCATE X。22:PRINT" ゅ "LOCATE 29。11:PRINT 
り 朋 98 

1 19 REM ※※※※※※ メイ ン  ※※※※※ デ ※ 

129 LOCATE 26.29:PRINTM:LOCATE 28.15:PRI 
NTV:LOCATE 27。11:PRINTUSING" 拉 提 持 半 "1S 

139 REM XXxX カ ~ メ ン クリ ア ※※※ 

149 IF E=9 THEN S=S+ 1 9XM:M= 0 

GOSUB 599:GOTO 49 

159 REM XX※X※ ネス ^ ミ ニー イト ~ ウ ※※※ 

169 A=((INT(RND(1)X5)+1)xX4)+1:FOR Z=1 TO 
5:GOSUB399:NEXT:T1=13:T2=3:T3=A:CH=138: 

GOSUB 819:T1=13:T2=3:T3=A:CH=32:GOSUB 81 
2 


や や や や や 


E ピ =59+5XM: 


10 て 50 
60 て 100 
120 

140 
160 て 170 
180 


200 て 220 
230 て 250 
260 


280 て 340 


360 
370 て 381 
382->400 
420 


430<450 


470 


/ 


WM 
N 


MM 吊 
N 


変数 の 初期 設定 。 お よび 460 行 , 
480 行 へ 飛ば し て いる 。 

初期 画面 の 表示 。 BOX は 、 600 
行 に 攻 ば し て 理 , 

面 数 、 ス コア 、 残 り プ レー ヤー 
の 数 の 表示 。 

ネズ ミ の 数 を 調べ て 、 画 面 ク リ 
ア す る か 否 か 。 

ネズ ミ の 位置 の 設定 。 お よび 表 
。 


ネス ズミ が 7 匹 た まっ た か どう か 。 


た まっ た と き は 280 行 へ 。 

ネス ズミ が 沙 ち 、 爆 発し た と き の 
表示 。 お よび 炎 を 左右 どちら に 
出す か ? 

炎 の ひろ が っ た と ころ に 、 人 が 
いる か どう か 7 いた と き は 、 
爆発 する 。 


穴 の 中 の ネズ ミ の 数 を 0 クリア 、 


お よび 、 残 り プ レー ヤー 数 が 0 
の と き は 、440 行 へ 。 
カー ソル ・ キ ーー 入力 に より 、 プ レ 


ー ヤ ー を 左右 どちら に 動か すか 、 


お よび フレ ー ヤ ー が 堪 右 ぎり ぎ 
り ま で きた と き の 処 理 。 

スベ ペース キー が 押さ れ て いな け 
れ ば 、420 行 へ 。 

弓矢 の 移動 。 な に か に あたっ た 
ら 次 の 処理 へ 。 

ね ずみ 、 天 井 、 壁 の それ ぞ れ に 
あたっ た と き の 処 理 。 
280 行 の FOR と 対応 。 ル ー プ を 
出 た ら 、 メ イン へ 。 
ゲー ム オ ー バ パー 処理 。 リ フレイ 
ずる と き は 、10 行 べ 。 ま た 、 も し な 
いと き は END。 

キャ ラク タ ・ コ ー ド 135 か ら 143 
まで の 書き 換え 。 


NN 
WO 
N N N NN N 

N N IM N 


WWWWWWW W 


179 LOCATE A,C(A)+4:PRINT" ぇ ":E=E- 1 :C(A) = 
C(A)+1 

189 IFC(A) く >7 THEN 289 

199 REM XX※%% ハト クル シヨ リ ※※※ 

299 C(A)=1:T1=A:T2=19:T3=A:T4=21 :CH=138: 
GOSUB 720:IF A+12>24 THEN T1=23:T2=22:T3 
=A-19:CH=137:GOSUB 819:C(A)=1 :GOTO238 
219 IF A-19 く <1 THEN T1=3:T2=22:T3=A+19:CH 
=137:GOSUB 819:GOTO 23 

229 Tl1=A-12:T2=22:T3=A+12:CH=137:GOSUB 
8109 

239 N=VPEEK( VA+X1+22x32 ) 

249 T1=A:T2=4:T3=A:T4=21 :CH=32:GOSUB 728 
・T1=2:T2=22:T3=24 :CH=32:GOSUB819 


259 IF N=137 THEN PLAY"Cde":BEEP:V=V-1:L し 


O0CATE X1.22:PRINT" ぃ " 

269 C(A)=9:IF V=9 THEN 449 ELSE 118 

279 REM XX※X※ ヒト イト ~ ウ ※※※ 

289 FOR Q=1TO02 

299 GOSUB 399:GOTO359 

399 IF X<1 THEN X=1 

319 T=STICK(9) OR STICK(1):IF T=7 THEN T 
=6 ELSE IF T=3 THEN T=4 

329 X1=X+(T=6)-(T=4):IE X1>=24 THEN X1=3 
・GOTO 349 

339 IF X1 く <=2 THEN X1=23 

349 LOCATE X,22:PRINT" ":LOCATE X1。22:PR 
INT" ゅ "EX=X1 : RETURN 

359 REM XXX% フ 2 ミヤ リッ シャ ※※※ 

369 IF NOT(STRIG(9) OR STRIG( 1 ) ) THEN 42 
M 


379 R=21 

389 R1=R-1 :H=VPEEK( VA+X1+R1x32): IF H く >32 
THEN 382 

381 LOCATE X1,R:PRINT" "+ キ UP も + BK$+ " ぉ " 3:R= 
R1 :GOTO 389 

382 IF H=138 THEN LOCATE X1 。R1:PRINT" い "< 
・BEEP: BEEP: PRINTBK$+" "+ キ NX$ も +BK$+" "5::C(X 
1 ) =C(X1 ) - 1 :S=S+ 1 :GOTO 428 

383 IF H=149 OR H=135 THEN LOCATE X1.R1+ 
1:PRINT" ぃ "iLOCATE X1.R1+1:PRINT" ”sS・GOT 

0 429 

499 GOTO 381 

419 『“ 

429 NEXT:GOTO 119 

439 REM XXX※ サト ー ム オー 改 ~- ※※※ 

449 COLOR 15,5。9:LOCATE7 ,15:PRINT"GAME 0 

VER":PLAY"t249crergrcrergrcrergrcccc":LO 

CATE 6,16:PRINT"REPLAY[Y OR N] 

459 J$=INKEY$: IF J$="y" OR J$="Y" THEN R 

UN ELSE IF J$="n" OR J$="N"THEN CLS: END 

ELSE 459 

469 REM XXxXXXX CG セッ ト XX 

479 FOR Z=135 TO 143:FOR 0=9 TO 7:READ C 

$:VPOKE(Zx8+0) , (VAL("&H"+C$) ) : NEXT : NEXT 


へ い . り 
fi 一 党 
[Tr ドー 


の 


ルン 】 


@FALL MICE の つづ き 


48 り REM XXXXX※X セツ メイ ※※※※ デ 区 


499 CLS:LOCATE 9,9:PRINT" ェ エー ー」" 
599 LOCATE 9,19:PRINT"Ikl (===) 1 っ 1" 
519 LOCATE 9,11:PRINT" レコ レコ 


S29 LOCATE 9.15:PRINT" レニ ーーーーーーー ゴ " 
539 LOCATE 9.16:PRINT" | SPACE 1" 
S49 LOCATE 9.17:PRINT" レーーーーーーーー"" 
SS59 LOCATE 15.5:PRINT" 
S69 LOCATE 11.4 :PRINT"EALL "3:PRINT "MIC 
ド " 

S579 LOCATE 19.22:COLOR1 11 ,1:PRINT "PUSH[ 
ら 」 KEY" 

589 K$=INKEY$:TF K$="S" OR K$="S" THEN G 
OTO0 59 ELSE 589 

S99 COLOR 1.15.15:LOCATE 19,19:PRINT "ヤッ タ 
ネ オメ デー トウ "PLAY"T299CRCRCRERERERCC":FOR A 
=1105999:NEXT:RETURN 

699 REM XXXX※X BOX SUB ※※※※※※ 
619 IF T3<〈T1 THEN SwAP T1.,T3 
629 IF 4 く <T2 THEN SwAP T2.,T4 
639 T5=1 6 
649 FOR YY=T2TO T4 UM 
659 IF YY=T4 THEN T5=1 NM 
669 FOR XX=T1 TO T3 STEP T5 和夫 
679 VPOKE VA+XX+YYxVX,CH / 
689 NEXT XX N 
699 T5=T3-T1 “ 
799 NEXT YY 
719 RETURN 
720 REM XX※X※※※ LINE SUB ※※※※※※ 
739 IF T3<〈T1 THEN SwAP T1.,T3 
749 IF T4 く <T2 THEN SwAP T2,T4 
759 TS5=T4-T2:IF T5=9 THEN 770 
769 T5=(T3-T 1 ) /T5 

779 FOR YY=T2 TO T4 

789 VPOKE VA+T1+YYxVX+YYxT5。CH 
799 NEXT YY 

609 RETURN 

6819 REM XX%%※%※%※ LINE SUB 2 ※※※※※※ 基 NMM 
829 IF T3 く <T1 THEN SWwAP T1.T3 N 


839 T5=(T3-T1 ):IF T2<3 THEN T2=3 | 
849 FOR Z=9TOT5 | W 
859 LOCATE T1+Z,T2 | 


669 PRINT CHR$ も (CH) : 

879 NEXTZ 

869 RETURN 「 
8699 DATA FFP,FF,FF,FEF,FF,FF ,FF ,FF 
999 DATA 88,.69,FA, 1E,7C,BA,69,88 
919 DATA C9,5B,7B,7F,FF,7E,7E,1C 
929 DATA EZ,FF,7E,DB,FF , 6E, 3C,24 
939 DATA 18,.3C,7E,18.18,18,18,18 
949 DATA PF,E7,DB,A5,A5,DB,E7,FF 
959 DATA 72.72.27.FA,22.52.,8A,8A 
969 DATA 19.39.7F,81.81.7F、39,19 
979 DATA 98.9C,fE,81 ,81 ,fE,9C,98 


ルイン 


NOM 


480 一 580 
990 
600 一 710 


720 て 800 


810 て 880 


890<970 


SW い mW 


NN NN \W\ 
NNWU NN WW 
WNW 


V 
NM 


っ いぼ に 


。 = カ 
ネス ~- 

5 う 下 5 

- を ん 


タイ トル の 表示 。 

画面 クリ ア の と き の 表 示 。 

キャ ラク タ で BOX を 書く サブ 
ルー チン 。T1 、T3 が XX 座標 、T 
2、T4 を Y 座 標 と し 、 T1、T2 か 
ら 、T3、T4 ま で の BOX を V-RA 
M に 直接 書き こむ 方 法 で 書い て 
いる 。VA は 、V- RAM 先 ア ドレ 
ス 、 VX は X 軸 の 長 さ 、 CH は 、 キ 
ャ ラク タ ・ ヨ ー ド 。 

この LINE サ プ は 、 BOX サブ と 
同じ よう に LINE を キャ ラク タ で 
書い て いる 。 


. こ こ は 、 LOCATE 文 を 使っ た L 


INE サ プ で 、 基 本 的 に は 710 行 か 
ら の LINE サ プ と 同じ 。 
キャ ラク タ 再 定義 用 の デー タ 文 。 


も も も も も も 1 
る 
も も 


NN 
WW NN 


> 第 
1 

> / ーー 
- 和 ち て き 1 こ する ネズ 0 


に : 
の デー Ye 、 42。 
KR グフ 


に 巻 を 一 


@『「 プ ログ ラバ \ 逐 ツ ト 」』VOI ぢ 原作 : 幅 司 


静か に 心 落 ち つ け て 向かう パズル ・ ゲ ー ム の プロ ト タイプ 。 
で も 、 の ん びり 好 手 を 考え た り し て いる と 、 
あっ と いう ま に タ イム ・ オ ー バ ー に な っ ちゃ う ぞ / 


すばやく 数 字 を な ら べ で か え よ う 。 画面 
の 右側 に は 、 現 在 ま で に か か っ た 手 
"15 ゲー ム 』 と いう 小さ な 数 字 の な ら べ 数 と タイ ム が 表示 
か え パ ズル が ある 。 こ の 「『10 ゲ ー ム 」 され て 
は 、 その パソ コン 版 と 考え れ ば いい 。 いる 。 
最初 に 完成 画面 が 表示 され る の で 、 ee の, 
キャ ツチ リツ 順 に だ だ きこ ん どく こま 。 ゲー ム が 
次 に 、 好 き な 数 字 を 1 一 7 か ら 選 ん で パソ コン 
ゲー ム ス タ ー ト だ 。 こ の 数 字 は 、 問 是 版 で ある ゆ 
パタ ー ン の 番号 で 、 同 じ 数 字 を 選ぶ と えん は 、 ま 
同じ パタ ー ン か らら はじまる よう に な っ きだ さこ の み 
て いる の だ 。 イム に ある 。 
ゲー ム が は じ ま っ た だ たら 、 動 か し た い タイ ム が な く 
数 字 の キー を サク サク た だ た いて いっ て 、 な る と アウ ト 。 
リプ レイ は 、 リ 
ター ン ・ キ ー が だ? 


1 SCREEN 2iFEY DFF HIM ド (16) 

人 G 四 ソーーーーーーーーーTNT エーーーーーーーーーーーーーーー 

3 み COLOR 結 。1 iCELS iDFEN "BRF Es" 人 #1 shRAM 
"EBM46」1 リ 7 gFRTNT 蘭 1 。 り %% 1 連 ガリ ー ム 寺 迷 り 

4 LINE (53』2) 一 (162 16) 。3 BiLTNE (54 。 ら 1 
) (161 。159) 。3 。B 

SM REGTDRE 66giFHR N=1 TO 15kRERLI FsEBEEF 
:BHSUE 后 1 以 NEXT 

6 以 BOTO 5 回 W 


7 ーーーーーーーーー SELE じ Tーーーーーーーーーーーーー 
パネ ル の 配置 BMCLS HIRAM "BBMS6 』B" sgFRTNT 韻 1 "すき な すら 
キー 入力 用 を らん ( (た ざい (1 一 7)" 
入力 され だ キー の 7 コロ ま =INEEY ま 』G=VL(G ま ) 』1F Gi OR BT 
人 HEN 9 


1 HN BHTD 11。12m。13。14 の 15 。16 中 。17 
以 
11M REBTURE _ 67:BOUTD 18 
12 RESBTURE 6 ヨ sGUTOU 18M 
Em 13 REBTURE 69:BDTD 1BM 
14M RESTURE 7sGOTOU 18 
155 RESTURE 71kGDTD 18 
バネ ル の 画面 上 の | 1。』 RETDRE 2:BDTO 1B 
岩 標 17 REBTURE 73MiBDTUD 18 


読み 込み デー 


時 間 記憶 用 
ルー プ 用 、 お よび 


へ いり 
ツー メ 溶 
な ーー 


の 


7 を Z 


@ 10 ゲ ー ム の つづ き 


18M COLOR _ SECLS ER "EBM46 1V IFREINT 拉 1 


55 10 スク リー ン の 設定 と DIM 宜 言 。 
人 革 攻 1 届 サーー ム 革 基 し 20 一 40 タイ トル と 外 枠 を 表示 。 
19M LINE (553 。2) (162 16 み ) は BELTNE (54 2 50 正しい な ら び 方 の デー タ を 読み 
1) 一 (161 。1559) は 。E こん で 表示 させ る 。 
2 H テ WiFOHR _N=1 TO 15iRERLE EECN) =F iGBHSU 2 3 
1 内 者 人 eee 70 問題 の 選択 の た め の キ ー 入 力 。 
80 メッ セー ジ 表 示 。 
3 の 恨 1 エモ BMT 上 ME に 90 キー 入力 。 1 一 7 以外 の キー は 
23W COLOR 7 フェ BEEF sHRRM"EM1B 。BW" FRINT #】 受け 付け な い 。 
の 100 一 170 4 RNN 
24@ IF INT((T エ -TIME) 71)=TX THEN 26 yl 
2 っ 5 LINE(2 の 4 ,13 ゆ ) (224 。13B) 。1 。BF TX=TNT (ろか な が 
(T エ -TIME ) / 1 9) れ に 従っ て パネ ル を 表示 し て い 
26 LTNE (人 G2 后 13 以 ) 一 ( 全 4 。13 昌 ) 1 。EF 6 
27 CHLOR で ERaM"EM1B 。13M" IFRINT 手 1 99 | 210 ゲー ム 開 始 / 
4" sRTGHT ま (『 リキ BTR ま (TNT((T1-TIME)/1m))。 | 2 UM 
4) 』TF T1-TIME=11 THEN 4 0 0 


240 一 270 時間 を 表示 。 も し も 残り 時 間 が 
の 世 
=Bg CULUR 少な く な っ た ら END 処 理 ヘ へ ジャ 


で 9 まま =INEEY ま ュ 1F じ ま = リ "リリ THEN 4MgELSGE し じ =V ソ ンプ 
AL (C ま ) iLINE (GE34 。B) (24 。B6) 。1 。BF :PIRaM"B | 280 色 を 変え る 。 
M22B BMT gaFRTNT 苦し 290 数 字 入力 。 も し 入力 が な けれ は 、 
3 FUR N=1 TH 155kTF K(N) =C THEN 31W ELS NE 
E NEXT:BDTO 23W て 次 の 行 へ 移る 。 
31M IF CFM THEN 37M 300 押さ れ た パネ ル の 位置 を さがす 。 
3 だ 軸 ITF EC(N-1)=1 THEN N1=N-1 GUHTO 3 は 7M 310 も し 押さ れ た 数 が 0 の と き ジ ャ 
33M 1F EN+T1)=1M THFHIEN NLEN+T1 siGHTU は 7ZM ング 。 
4 中 IF N-4: THEN IF FCN-4) =1 基 THEN N1=N | 320-350 移動 可能 か どう か の 判定 
ー-4 BOTOD 37W 360 以降 230 行 より くり 返し 。 
ーー / バ パネ れ か えと 前 の パネ 
35 TF N+4<16THEN IF E(NT4)=1 THEN NieN | 0) o 加 。 
+ 馬 sgBHTH 37M 390 一 410 0 パネ ル の 移動 判断 。 
3 ら 6 BOT で 3 中 420 一 430 0 パネ ル の 移動 。 
te MAP に (N) RCN1) iRX=d2(N NO 4) 11 
9 9 いい ee Po ー ょ らん だ か どう か の 判定 。 
=32 (NEW4+1) 一 昌 sLINE(EX FEY)ー(EX+26 。EY+SB) あの 
EF ーー ンプ し て 以降 くり 返し 。 
31 の FeEK(N1) sgMNN1 sGEISUE 当 1 婦 BHT 44 史 480 一 490 完成 し た 時 の MUSIC。 
39 TF N-4E 因 THEN 1F EK 囚人 4) 手 1 以 THEN Ni1 =N 550 リタ ー ン ・ キ ー 入 力 待ち 。 


+4 gaNEmN ENG3 テ NiNX=N 一 4 BHT 4 

4 iF N+B16 THEN IF FE(NTB) =1 THEN N1= 
N:NEN+4 :N3=NTB NX=N+T4 :BHTD 42W 

41 BUT SG 

42 BMAF FE(N1) FE(NE) EBMRF FE(N1) 』E(N3) EX 
=dck(N MHD 4)+31:EYmd2*(N4 キ 1) 一 旨 saLTNE (EX 
JEY)ー(EX+ で の 6 』EY キ 6) 。1 。BF 

43M EmE(NX) :N=NX BOBSUE 結 1 

44 =H+1 CHLOR ら :LTNE(178。1M) (2 。113 
) 1。EF ERAM"BM17 人 2 1 FRTNT 壮 1 HE" メリ 
4 N=1 RESBTURE 86 4 
46 以 1F N=1 旨 THEN 4 
47 外 RE FETF FIN) SE THEN SG ELSE N=N+ 
1 :BHTH 46 

4B FLRY" ロ 4L16CEGBU5CECD4BDSCEECO4GOSSEL4E" 
:BHT ロ 5 

49 FLAY" ロ GL16ERa 社 AG#BF 音 FE 牡 FI - 尊 還 款 て 凍 間 0 
本 IRM TEM43。1BMT kFRTNT 手 1 "FUSH 7RETUR MM 

N' EEYU ETF INEEY ま SCHR ま (13) THEN SSM ELG 
E BM 


mW 太 太 に 
Cr の ら な 


っ 
メー 


NO 
UT いい 
和 カ し て 
いと 2 
アタ ぎ 


1 ド X=32x(N NHOL 4)+31 :j に ド Y= コ 2 (N 半 4+1 ) 一 所 
2 ドド = ドキ 1 saHN ド BOT 53 4 。 呈 の 。 呈 6 。 上 7M 。 
BMW 9 。6 引 6 ら 1 の 。6SM 63 。63 必 
呈 コ 史 LINE (EX 。EY) 一 (EX+26 。 EEY+6) 。4 BiLINE (F 
X+4 ドド Y+4) 一 (EX+T1M』 ド Y キ 13) 。2 JE BUTU 63w 
4 BHSUE 64sLTNE (EX+T7 。EY+ キ は) 一 (EX+ フ 。EY+1 
1 。2 1BOTQ 63W 

5 _ BODSUE 64sLINE (EX+4 』EY+3) 一 (EX+ す 1 の 。 ド Y+ 
3) ,2 LTNE (EX+10 。 EEY+4) 一 (EX+1 JEY+6) SiLTN 
E (EX+4 』EY+ フ ) (EX+10 ドイ + キ フ ) 2 iLTNE (EX+4 。EY 
+ 日 ) (EX+4 JEY+1) 。2 iLTNE (EX+4 。 IEY キ 11) 一 (EX+ 
1 。 ド Y+11) 。 で BODTD 63M 
6 の BHSUE 64MgLTNE (EX+4 。EY+ ヨ ) 一 (FX+1M。 ド Y 
3) 2 iLTNE (EX+19。EY+T4) 一 (EX+1。EY キ 1 の ) 。2 iL 1 
NE (EX+7 RY キ 7) 一 (EXT9 。EY+ キ 7) ,2 LTNE (EX+4 .EY 
+11) 一 (EX+1。EY+11) 。G BUTO 63 
7 GUSUE 64WiLTNE (EX+4 ETY す キロ )ー(FEXT4 。 ド Y+ 
9) ,2 LINE (EX+ 呈 。EY+ キ 9) 一 (EX+1。EY+ 9) 。gL1 
NE (EX+B ,EY+3) (EX+B 。EY+11) 。G BOT 63 以 
5BW BUSUER 64MiLINE (EX+4 EEY+ ヨ )ー( ド FX 二 1 居 。EY+ 
3) 』2 LINE (EX+T 4 4EY+ キ 4 うー(EX+ 4。EY+ キ 6) 人 SLIN 
E (FX+4 JEY+ フ )ー(RX+10 FEY+7) 2 LTNE (EX+1 中 。 ド 
Y+B) 一 (EXT1 以 。 FE イオ 1) SiLTNE (EX+4 。EY+ キ 11) 一 ( ド 
X+1。EY+11) 。2 BHT 63 
品 9 BUSUR 64gLTNE (EX+4 ETY キ 3) ー(EX+ キ 1 。 ド Y ェ 
3) 。2 iLTNE (EX+ 4 EEY+ キ 4)ー(EX+ 4 ET イキ 6) 。 人 GL1 
NE (EX+4 。 ド Y キ オブ)ー(EX+1 四 IEY+T11) 。G BEGHTU 63 
6 BHSUE 64MELTNE (EX+4 。EY+ キ 3) 一 (EX+ キ 1 中 。 ド Y エ 
3) 2 iLTNE (EX+ 4。EY+4) 一 (EX+ 4.EY+ 王 ) 2 JE : 
LINE (EX+1。EY+9) 一 (EX+1m。EY+11) 。 ら : BOTH 63 
中 
61 GOSUE 64 四 LTNE (EX+4 。E ド Y+ ヨ )ー(FX+1。 ド Y+ 
11) 2 BELINE(EX+ 呈 。EY キ フ )ー(EX+ の EEY+ 7) 。2 
:GDTH 63 
62 以 BUSUE 64sLTINE (EX+4 FEY+3) (EX す 1 中 . ド Y+ 
7) 2 EELTNE (EX+1 中 。EY+ ロ )ー(EXT1 FEY+11) 。2 
、E 
ら 63 RETURN 
64 LTNE (EX 』EY) (EX+26 JEY+S 日 ) 。4 ERETURN 
6 所 ソーーーーー モ フウ ゴブ チリ ー タ ーーーーーーーーーーー 
66M HAT 還 』142 11 。11 4 は 。4 11 。 呈 。 ら 7 。11 。 日 9 
1 | 
67@ HATA の 。 ら 7。11 11 9 ご 。11 。 日 4 3。11 。1 。5 
。 1 以 
6 HAT 居 ら 3。11 11 。 日 4411 で 。7。9。11 。 呈 。1 
1 
9 ET 9311 の らち 。 11 11 44。7。11 。 所 日 
。1 以 
7 HAT コッ ブッ 11 の 生 9。11。11 。4.3。11。6。1 
1 
71 の IATA 7 日 9。11 6。5。4。11 の 243。11 。11 。1 
1 「 
72 IATR の の 01 7 も 11 も. 人 S。1。11 3。B 
。 1 | 
73 み HAT 123。11 4 。 呈 6。11 の 。7。 日 。11 。11 9 
。 1 中 


10 一 520 
530 
540 
550 
560 
う 70 
980 
990 
600 
610 
620 
630 
640 
650 一 730 


各 パ ネル 表示 へ の ジャ ンプ 。 


バ パネル 0 表示 。 
パネ ル 1 表示 。 
パネ ル 2 表示 。 
パネ ル 3 表示 。 
パネ ル 4 表示 。 
パネ ル 5 表示 。 

パネ ル 6 表示 。 
パネ ル 7 表示 。 
パネ ル 8 表示 。 
パネ ル 9 表示 。 

復帰 。 

各 パ ネル の 外 枠 表示 。 
バネ ル の 初期 位置 デー タ 。 


タク 


6KbE 


PAPPLE 


@ 「 プ ログ ラム ハ ・ ボ 丸 エ ッ ト 』VOI2 原作 : 大 明神 


あれ れ 、 ど っ か で 見 た こと ある よう な …… o 
画面 いっ ぱい の リン ゴ を バク バク 食べ て 、 
ボー ナス の ニン ジン も すか さ ず バク ッ と 食っ ちゃ お う 。 


この ゲー ム 、 ど こ か で 見 が は じ ま る 。 
た 雰囲気 …… 。 某 パッ クマ ン に そっ く カー ソル ・ キ ー (また は ジョ イ ・ ス 


あの 、 ジ ャ キジ ャ キ …… と いう 音 は 
きこ えな いけ ど 、 気分 は も う パ ッ ク 
りな の だ 。 た だ し 、 円 グラ フ み た いな ティ ッ ク ) で 。 パップ ル を 上 下 左右 に “どん どん リン ゴ を 食べ て 次 の 面 を 目指 せ 。 


の メロ ディ ー と と も に ゲー ム G は 進む 。 


も うす ぐ 、 ニ ンジ ン が 出 て くる か な ……。 


キャ ラク タ が 食べ る の は 、 ド ッ ト な ん 
か じゃ な く 《、 お いし そう な リン ゴ 。 4 
つの 追い か け キ ャ ラク タ ( プ ヨプ ヨ ) に 
つか ま ら な いよ う 、 画 面 上 の リン ゴ を 


あや つっ て 、 面 クリ ア 
を 目指 し て 〈 れ 。 

グ ヨ プ ョ だ ちら は ほ 、 見 
だ 感じ 、 下 ロ そ うだ け 


変数 リス ト 
プ ヨ プ ヨ 3 臣 の 内 標 


ヨブ 当 ベ グ トル 
すべ て 食べ つく す ゲ ー ム な の だ 。 ぼ 、 な か な か 巧妙 に ま 3 
アッ プル を 食べ る パッ クマ ン だ か ら 、 わり っ る か ら 、 プレ イヤ ー の 座標 


パッ プル っ て わけ 。 
キー ボー ド の どこ か の キー を た だ た だ く 


常に 安全 な 道 を 選ば な 
と 。、 の ぐ に 次 ツン し 


プレ イヤ ー の 座標 スジ ツ ッ ツ 
面 数 


と 、 愛 秋 の メロ ディ イー と と も に ゲー ム て も まう ぞ 。 そ で ぞ 和 に 、 食べ だ リン ゴ の 数 
例 の パワ ー エ サ な ん か スコ ア 
な いか ら 、 パ ッ プ ル は ハイ スコ ア 
攻撃 する こと も で き な ブレ イヤ ー の 数 
い の だ 。 BGM 用 カワ ン ツ 
で も 、 と きど と どき 、 画 面 ワー 変数 
の 中 央 に ニン ジン が 現 リン ゴ 上 半分 の キヤ ラノ タ 
れる 。 も ちろ ん 、 こ れ を リン ゴ 下 半分 の キヤ フン ツ 
食べ る と ボー ナス 得点 壁 の キヤ フン ツヤ 
だ 。 BGQM の デー ツ 
キャ ラフ タ や スプ ライ ト ヒ の 


_72 の 


リプ レイ は 、 好 き な 
キー を だ だ け ば O K。 


パ ダ ター ン 設 定 用 変数 . 


RU 
いや 
WW 


NN wi 


ボー ナス の ニン ジン 出現 / は や く < 食べ に 
いき た いけ ど 、 な ん だ か 追い つめ られ て 、 
や られ て し まい ぞう 。 


ら 


に AKIL に 


370 て 380 


合 ち ょ っ と か わい いけ ど 、 こ れ が 憎い プ ヨ プ ヨ 。 


画面 、 変 数 の 初期 設定 。 


キャ ラク タ の パタ ー ン 定義 。 


キャ ラク タ の 色 設 定 。 


スプ ライ ト の パタ ー ン 定義 。 


各 文 字 変 数 の 定義 。 


ゲー ム ス タ ー ト の 初期 設定 。 


ゲー ム 画面 表示 。 
敵 の 位置 セッ ト & 表 示 。 
自分 の 位置 セッ ト & 表 示 


| 


ーーーーーーーーーーーー デ ーー ーーー ニー ニー デーー や 
ーー マテ ーー セン ーー ミー っ ーー 
ーーーーーーーーーー ーー ーーーーーーーー マ > 
ーー ニーーーーーーーーー ーー デー デー や” 
ーーーーーーーー ーー ーー ーー ーー デーーーー… 
ーー 


] 


人 リン ゴ を パク パク 食べ る パッ プル 。 


1M "ーーー TNITITRLTZ7E ーーー 

< CLEAR 4 SCREEN 1 。2 。MsLIEFUSR=&&H9 
3 ゆ _ MIITH 29gCEOLUR 15。1 。1 siEEY ロ FF 

4 DIM EX(3) 。EY (3) 。MX (3) 。MY (3) 。C(3) 

ocM FUR コ =1 TO 9sREAD MiM=M 晶 

6M FOR ji=M TU M+7sREALI を 

7M_ VFOUEE TI JMAL("&&H"+ キ じじ ま ) siNE XT T 。J 
BM_VFOEE B221 。&H43 sVFUEE B223 。&H9 

7M_ FUR J=1 TO 6iSGFP ま =" "sgFOUR エ =1 TO 32 
1 _ REALI じ ま :GBP ま =GP ま + す CHR ま (VAL ("&H"+ じ ま ) ) 
11M _ NEXT sSGPR1I TE ま (J) =SFP ま sNEXT 

12W 人 1 ま = じ ビ HR ま (24 の) + じ CHR ま (242) 

13M つま = じ HR ま (2 つ 41 ) +CHR ま (243) 

14 の に ま = じ ヒビ HR ま (2 つ コ 2 ) iM ま = "ロロ ロロ ロロ じらい は いじ ミ 8 い ら ビ イ 
† ロ † 和 ドロロ 己 d す す 二 " 

1SiM ーーー GAME ーーー 

16 ゆ ウ ド =1 saM= ニ 2 ョ 5= ウ s5USGUB 7 

17M FLAY "vV15t1181 16EghGd コ じらい CE ヒヒ Pn2 つ 2C 
に ロダ マジ ヒロ ロジ 2 ジロ n ロ 22 ロリ" 

18_ CLSsFUT SFRITE 1 。( ゆ 。2 の 8B) 。 の 。1 

19M VPORE &H2 み 21E 。(R MOULI 2) xB+48 : ビ = 
< LOUCATE 2 。1 siFRINT "Hi ミー" ョ HI 

<1 の LOCATE 12。1 iPRINT "BC-"sS 

<ZM FRINT giFRINT STRING ま (28 。232 ) 

3 _ FUR J=1 TO 4 


<4M FRINT ドド ま 』sFUR 1 エ =1 TO 6gPRINT " 。 " ョ 人 1 
ま ssNEXT iPRINT ! 7 ョ 字 

<cM FRINT ド ま 』sFUR 1=1 TU 6sFRINT " "sa2 
ま ョ ssNEXTiFRINT りり に 事 

<6 み ゆみ FRINT ドド まま 』sFUR 1T=1 TU 6sFPRINT 谷 1 まま ョ に キ ま 』* 
に K ま ssNEXT siPRINT 人 Q1 ま 』 ド に 

<7Q_ FRINT ドド ま 』sFHR エ =1 TU 6iFRTINT 2 ま 』 に ドキ ま 』 
ド K も 』sNEXT iPRINT 2 まま に を 

<BM_NEXT 

<7_ FRINT ド ま 』:FUR 1 ユ =1 TO 6gFPRINT " "ml 
ま ssNEXT iPRTINT の" ョ 式 

dg PRINT ド 和 ま 』iFHR 1=1 TO 6gFPRINT " 。 "』Aa2 


ま ョ ssNEXTIiPRINT "に 放 

31 FRINT STRING ま (28 。232) 

3 ご LOUCATE 22。1 sgFRINT STRING ま (M 。133) 』TAB 
( ぞ ら 6) 』R 

3 軸 ーーー GAME START ーーー 

34M FUR 1 エ =1 TO dgEX(1T)=12sEY (1 ) =64 

JSC MX(T) = saMY (1 ) = の giC( 1 ) = の 

36 ゆ _ FUT SFRITE iT。(12W。64) 。 エ +1 1 。1 giNEXT 

3 7 X= ニ 1 で ロミ ョ ミイ =12H BEB=3 =1 


727 


@ PAPPLE の つづ き 


JBM 
ゴワ MM 
4 
41M TF 
4ZM IF 
43M TF 


FUT SFRITE 4.(X。Y) 1 の BE 

FUR 1I= 軸 TO 1 ゆ MMsiNEXTgFLARY "11651『" 
XX=XsYY=YslT=STICE( ゆ M) OR STICK(1) 

1=7 NLI X: で 4 THEN メモ メー16』 ロ =3 

1=3 NL X ぶ で 16 THEN X メ = モメ + ィ 16』E ニ 4 

IT=1 NL YE:32 THEN イ = テ Y イ ー16:』:E= ニ 

44 IF Ii=5 NL YE1E6 THEN Y=Y+16』H ニ = ム 6 

45 連 ロロ N INSTR(CHR ま (で 2 で) CHR ま (で 人 4) キ じ HR ま (で ジコ 
MM) 。CHR ま (VFPEEE(&H1 ヨ TX/B+Y テ 4)))+1 GUTOU コ 
7 46 ゆ | 。4BM 人 47M 

46 メニ XXsY イ = テモ YY kBOHTOU 7ZM 

4 7 選 =GB+TNT(RNLI 1)※4+1)X1MMsGOUTO 49M 

4 ご = ロロ +1 以 = ビデ ド +1 

49 以 1F SG:HI THEN HIi=GiLUCATE6。1 giFRINT 
5 LUCATE 16。1i igFRINT 5 

st LU に ATIE ル / ロ ー ス 。(/BePRINT “の 

52M LUCATE X/ ヨ コー2。Y/B+j siFRENT の 

cd お 以 1F ド =99 THEN 8B3 中 

呈 人 4 以 1TF PE42 THEN 7 ELSE F= ロ コ J 

Ss5M LUCATE13.12 ョ FRINTCHR ま (EEI) CHR ま (ピコ ) 
LDCATE13 。13:FRINTCHR ま (21) iCHR ま (253) 
PUT SFPRITE 4。(X。Y) 。1m。B 
FLRY "vV15 リ +MILI ま (MM ま 。L。1 ) si 日 = 
バーーー ENEMY MUVE ーーー 
=INT(RNL (1) *3)+1 k じ (MM) = モー ビ (MM) 

FOUR 1=1 TO 3』TF MX(I)+MY(1) THEN66M ゆ W 
IF RNLI(1)。 呈 THEN MX(1) =GBN(Xー ビ X(T)) 
x コ oiGDTD らら 6M 
63 外 TTF RNLKC1) 記 
32. 8GUHTO 66W 
64M IF RNE(C1)K SE THEN MX(T)=INT(RNLI( 1 ) x7 
) *#32+2 オ ーE ビ X (1 ) siGUTOU 66M ぬ 

ら 65 MY(T)=INT(RNLH( 1 ) # 二 1 ) # づ ピーEY イ (は) 

66 TF MX(T) THEN M=SBN(MX(T) ) (11+((EX( 
1 ) MOULI32 ) =24) ) aiEX(1)=EX(1T)+MsMX(T)=MX(T) 一 
M 

67 軸 TF MY(E) THEN M=SGN(MY(T))※(11+((ETY( 
1 ) MIUL32) = 中) ) iEY(T) =EY(1T)+M iMY(1)=MY(T) 一 MM 
68w FUT SFRITE 1。(EX(T) 。EY(T)) 。 エ +T11 。 じ (1) 
69 以 IF BS(EX(T) 一 X)16 ND RBS(EY( エ )-Y) 
16 THEN /3M 

7 _ NEXT giFLAY "vV15 リ +MIELI ま (MM ま HL。 
71M HL MOL 328+1 sGUTOU 4MM 

7 "ニーー ELU ーーー 
73 ウ PUT SFPRITE 1。 
7 人 4 MM=USR【(M ゆ ) 

75M FLY "vVv1E514eo4aaoSseBdEcBo4ba4oS 
フ 76 IF FLRY() THEN 76M 
77 の の MM=Mー1 sa1F MM THEN 
78M LOCATE 1。12 siFRINT "GAME UMVER" 
79M LOUCATE 9。 NSPR II り FUSH _ NY EEY" 
BMM IF INKEY ま < 半 0 征 上 IEN BMM 

81M ITF TNEEY ま ="" THEN 8B1M ELSE 16M ゆ ぬ 
2M “ーー し に RE ーー 
83M FUT SFRITE 4』(X 4T) 


B キ 1 


5 THEN MY(1I)=SGN(Y-ーEY(T)) 


1 - (= で ) ) 


(X 。Y) 。 エ +11 。 じ (1 ) 


う M 


。1 み 。E 
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390 
400 一 440 


690 


700 一 710 


720 一 770 


780 一 810 


620 一 860 


ゲー ム 開 始 の 合図 。 

移動 すべ き 方 向 を 判断 し て 、 座 
標 と 目 分 の 次 を 変え る 。 

自分 の 移動 する 方 向 に 何 か あ る 
か 調べ て 、 各 処理 へ 飛ぶ 。 
壁 に あたっ た と き の 処 理 。 

ボー ナス を 食べ た と き の 処 理 。 
リン ゴ を 食べ た と き の 処 理 。 

何 か を 食べ た と き の 処 理 。 

ボー ナス の ニン ジン の 表示 。 
目 分 を 新 位 置 に 表示 し 、BGM。 
フ プ ヨ フ ヨ の 形 を 変え る 

フ ヨ フ ヨ を 移動 させ る 。 

え の 確 率 で プレ イヤ ー に 近づき 、 
と きど き で た ら め な 場所 へ 動く 。 
フ ヨ プ ヨ が プレ イヤ ー に 衝突 し 
た か を 判断 する 。 

BGM を 流し て 次 の 処理 へ 。 
死ん だ と き の 処 理 。 740 行 の US 
R 関 数 は ミュ ー ジ ッ ク デ ー タ バ 
ツ フ アァ ア な を クリア ずる も の 。 
ゲー ム オ ー バ ー 時 の 処理 。800 
行 は キー バッ ファ の クリ ア 。 

1 面 ク リア の 処理 。 壁 の 色 を 面 
数 に 応じ て 変え 、170 行 へ 飛ぶ . 


LOCATE 
LOCATE 4。13 
FUR 1=1 TO 9iFRINT 1 ま 』:iNEXT 
LOCATE 4。14 
FDR 1=1 TUD 9:FRINT 2 ま *:NEXT 


FL 人 aY 


LUCATE 7,17:FRINT "Push any key " 
IF INEEY ま PT" 
IF IN 


件 生 
HIRTR 
iQT 人 
HaT 
Li T 
HaTR 
LaTR 
伸介 
HI 全 T 全 
HaT 内 
LaT 全 
LATRa 
HaTR 
LaT 谷 
Ha 人馬 
HIaT 谷 
LRT 人 
[iQTR 
HaT 人 
LT 人 
HAT 全 
HaT 谷 
IaT 全 
HaTR 
LT 全 
LI 人 QT 谷 
HAT 
LiaT 全 
HAT 
iT 代 
IIQTA 
IaT 人 
人 


IF R>1 THEN VFORE &H21D。&H64 
IF R:3 THEN VPUEE &H2W1LI。W 
M=USR () :R=R+1 iBUTD 17W 

CLS iFPUT SFRITE 1 。(。2B) 。W。1 
VPUEE &H21E 。&H9 LUCATE み 。4 
PRINT" 
PRINT" 
FRINT" 
PRINT" 
PRINT" 
LUCATE 


FFP 人 PFF FFPF'L 
PPAAPPPFL EE 
PFFF A A PFF FFF L E 
P aaNP P L EE 
PF AaP F  LLLE 


に に E 


コ 


ココ 


2 iFPRINT STRIN ロ ま (2 7 。 で つ M ) 


M。1MiFRINT STRING ま (2 フ 。 


MVv1 ロ 寺 二 選 リ " 。 † 己 " > 「 己 " 


THEN 1 の 2 
KEY まま = リリ 
CHRACTER HATA ーー 


232 。FF ,FF 。 。LIE 。TIE 。 加 の 。FF 。FF 
24 。W の 3 。 WW 。 6 1F 。3F 
241 。3F 。3F 。3F 。 ヨ F 。3F 。3F 。1E 。WW 
242 WM 。 の の 。B BB 。 EBM 。FB 。E ビ 
243。F4 。F4 。F4 。F4 。EC 。FC 。 7 。 の WW 


うに 


= 


M ) 


THEN 13 _ ELSE_ RETURN 


の 四 。 の 。 の ビ 。 の 6 。 3 。1 。 軸 。 1 


2551 。 の 3 。 の 7 。QF 。1B 。3H 。3E 。3F 。1F 
っ コロ CC 。6C 。66 。36 。B6 。 加 2 FM 。F 晶 
253 。 7C 。BC 。DC 。EC 。FB 。F 。6 の 。C 


SPRITE DATA --- 
7 。1F 。3F 。7F 。63 。C1 。CH 。CLI 
E3 。FF 。FF 。7F 。7F 。3F 。1F 。 の 7 


E。FB。FC 。FE 。C6 。9E 。9B 。B3 


7 。FF 。FF 。FE 。FE 。FC 。F ヨ 。EB 
の 。W の 。 の の 。WF 。3F 。7F 。63 。LI9 
h9 。C1 Ed 。FF 。7F 。7F 。3F 。g7 
の 。W WW 。FW 。FC 。FE 。C6 。B3 
B3 。B3 。C7 。FF 。FE 。FE 。FC 。FM 
7 。1F 。 ヨ F 。1F 。WF 。 み 7 。 の 3 。 以 1 
1 。 の 3 の 7 。F 。1F 。 コ F 。1F 。 の 7 
C 。F 。F 。FC 。FE 。FE 。FF 。FF 
FF 。FF ,FE 。FE 。FC 。FB 。F の 。C 
3 。 の F 。1F 。3F 。7F 。7F 。FF 。FF 
FF 。FF 。7F 。7F 。3F 。1F 。gF 。 の 3 
EM 。F 昌 ,。FB 。FW 。EW 。 じ の 。BW 。 WW 
 。B ウ 。C 。EM 。FW 。FB 。F 。E 
g 。W 。 WM 。 6 。 7 。FB 。FC 。FE 
FF 。FF 。7F 。7F 。3F 。1F 。 の F 。 の 3 
の 。WW 。W 。 の 6 。 の E 。1F 。dF 。7F 
FF 。FF 。FE 。FE 。FC 。FB 。FW 。 じ の 
の 3 。 の F 。1F 。3F 。7F 。7F 。FF 。FF 
FE 。FC 。F 昌 。 7 の 。 6 の 。 必 。W 。 の の 
C の 。FM 。FB 。FC 。FE 。FE 。FF 。FF 
7F ,3F ,1F 。aE 。6 。 の の 。 の の 。 


870 一 1030 


1050 

1060 一 1090 
1100 一 1130 
1150 一 1180 
1190 一 1220 


1230 一 1260 


1270 一 1300 


1310 一 1340 


1350 一 1380 


最初 の メッ セー ジ 画 面 。A1 $ 
と A2 に は リン ゴ の 上 半分 と 
下 半 分 の キャ ラク タ が 入っ て 
いる 。 

情 の キャ ラク タバ パ ター ン 。 
リン ゴ の キャ ラク タバ パ ター ン 。 
ニン ジン の キャ ラク タバ パタ ー 
ン 。 

プ ョ ラフ ヨ (大 ) の スプ ライ ト 
パタ ー ン ・ デ ー タ 。 

プ ヨ プ ヨ (りり の スプ ライ ト 
パタ ー ン ・ デ ー タ 。 

プレ イヤ ー が 上 を 向い た と き 
の スプ ライ ト パ タ ー ン ・ デ ー 
ダ : 
フレ イヤ ー が 下 を 向い た と き 
の スプ ライ ト パ タ ー ン シン ・ デ ー 
ダ 。 
フレ イヤ ー が 左 を 向い た と き 
の ス フ ラ イト パタ ー ン ・ デ ー 
グ 。 
フレ イヤ ー が 右 を 向い た と き 
の ス フ ラ イト パタ ー ン ・ デ ー 
グ 。 
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_8K 以 上 用 


ン 


る ーー ノミ 


@ 「 テ フ ノ ポ リス 」 84・1 月 号 原作 : トモ ダン ゴ 


圭 の うえ を フワ フワ 飛ぶ ワン ダー バキ ギ 
] ー。 点々 と 趣 に 乗っ か っ て いる ダイ ヤ 
モン ド を ひろ いま くれ 。 


左 か ら 右 に 走っ て いく ワン ダー バ ギ 
ー に 乗っ て 、 宏 の うえ に の っ か っ て い 
る ダイ ヤ モ ン ド を 次 々 に 取っ て いこ う 。 

だ だ し 、 雲 の うえ に は エイ リア ン も 
の っ か っ て いる の で 注意 。 こ いつ に つ 
か まる と 、 ア ウト な の が だ 。 

キー 操作 は ちょ っ と や や こし い 。 左 
右 (つま り 前 進 と 後進 ) は 、 カ ー ソ ル 
・ キ ー の EE 四 で 。 ス ペー ス ・ キ ー で 上 
昇 す る 。 ス ペー ス ・ キ ー を は な す と 自 
然 に 落下 する けれ ど 、 ま た 押せ ば そこ 


変数 リス ト 


弾 が 出 て いる か ど 
うか 

雲 の デ ー ツ 

エイ リリ ルン の デー タマ 
タダ イヤ の デー タ 
プレ イヤ ー の 位置 
キー 入力 用 
弾 の 位置 
V-RAM の 内 容 読 
み 出 し に 使用 
最高 得点 


72 を 


雲 か ら 雲 へ 、 飛 び ま わ る 不思議 な バギー・ カ ー。 
タダ イヤ モン ド を ひろ いな が ら 、 
エイ リア ン を や っ つけ ろ 。 


か ら 上 昇 を 再開 する 。 お っ と 、 地 上 に 
は えて いる 木 に が つか っ て も アウ ト だ 
か ら 注 意 。 3 吾 ア ウト で ゲー ム オ ー バ 
ー に な る 。 

対 エ イリ アン の 武 導 は 外 キ ー (だ だ 
し CAPS LOCK を し て いる こと )。 こ 
れ で ミサ イル が 1 つ だ け 発 射 さ れる 。 

ゲー ム 中 に 得点 を 表示 し て な い の は 
横 ス クロ ー ル の た だ ため に 流れ ちゃ うか ら 。 
無理 し て や る と 遅く な が っ ちゃ う の て 、 
ご めん ね 。 リプ レイ は hit any key。 


II IM 
19 SCREEN 1.9:CLEAR 399,&HF2FF:GOSUB 999 
:KEY OFF:WIDTH 32:COLOR 15,1,1:VPOKE &H2 
91E,&H91 

2 DEF USR=&HF399 

3 DEF USR1=&HF329 

4 CLS:GOSUB 629 

59 SC=9:MI=3:TI=9:LEV=19 

6 KM$=CHR$(&HF3)+CHR$(&HF4) 

79 AL$=CHR$(&HF5 )+CHR$ も (&HF6) +CHR$(&H1F)+ 

CHR$(&H1D)+CHR$(&H1D)+KM$ も 

89 DI$=CHR$(&HF7)+CHR$(&HF8)+CHR$(8H1F)+ 

CHR$(&H1D)+CHR$(&H1D) +KM$ 

9 CLS:SW=9:PUT SPRITE 2,(-2,9) 

199 X=16:Y=22 

119 K1=STICK(8) 

129 IF K1=7 THEN X=X+(X>9) 

139 IF K1=3 THEN X=X-(X<39) 

149 IF STRIG(9)=-1 THEN 169 

159 IF VPEEK(&H1899+X+(Y+1)*32) く >243 AND 
VPEEK(&H188+X+(Y+1)x32) く >244 AND Y<22 
THEN Y=Y+1 

169 K2=STRIG(B) :A$=INKEY$ 

179 IF K2=-1 THEN Y=Y-1:IF Y<9 THEN Y=9 
189 PUT SPRITE 9,(Xx8,Yx8):PUT SPRITE 1, 
((X+1)x8。Yx8) 
199 IF A$="Z" 
YY=Y 

29 IF SW=9 THEN 249 


AND SWw=9 THEN SW= 1 : XX=XX+]1・ 


20 一 30 


200 
210 一 230 
240 一 250 
260 一 290 
300 
310 
320 
330 
340 
360 一 410 
420 一 530 
540 


550 一 610 


画面 の 初期 化 。 機 械 語 プ ログ ラ 
ム 領 域 確保 。 機 械 語 フ ログ ラム 
の セッ ト 。. 

USR 関 数 定義 。 &HF300 は 、 左 
右 ス クロ ー ル 。&HF320 は 、1 
列 ク リア する 。 

スプ フラ イト の キャ ラク タバ パタ ー 
ン ・ デ ー タ の 定義 
変数 の 初期 化 。 

紳 を 消す 

フレ イヤ ー の 位置 を セッ ト 
キー 峡 力 


- 押 され た キー に より 、 プ レイ ヤ 


一 位置 を か える 

スペ ベー ス ・ キ ー が 押さ れ て いた 
と き は 160 行 へ 。 

フレ イヤ ー の 位置 に 何 が ある か 
調べ る 。 

補 王 人 放 。 

スペ ー ス ・ キ ー が 押さ れ て いた 
と き は 、 フ レイ ヤー を 上 昇 さ せ 
る 。 

フレ イヤ ー の 表示 。 

^Z" が 押さ れ て いた と き 、 弾 を 
出す 。 

紳 を 発射 し て いな けれ ば 、240 行 
へ スキ ッ プ 。 

弾 を 表示 。 エ イリ アン に ぶつ か 
っ た ら 、 得 点 を ふやす 。 
得点 を ふやす 。 


雲 、 エ イリ アン 、 ダ イヤ の 表示 。 


800 行 で 、 左 に スク ロー ル さ せ て 
いる 。 

プレ イヤ ー の 位置 に 何 が ある か 
読み と り 、 エ イリ アン な ら 、 死 
ぬ 。 

タイ ヤ な ら 、 得 点 を 追加 。 
岩 な ら 、 死 ぬ 。 

は じ め に も どる 。 

弾 が エイ リア ン に あたっ た と き 
の 処理 。 

死ん だ と き の 処 理 。 

プレ イヤ ー が 残っ て いる か どう 


か チェ ッ ク 。 残っ て いな いな ら 、 


ゲー ム オ ー ノ \ー。 
ゲー ム オ ー バ ーー 処理 。 最 高 得点 
の 変更 な ど を 行う 。 


219 XX=XXA+1:PUT SPRKITE 2,(XXX8 。YYXG ) 

229 IF XX>31 THEN SW=9:PUT SPRITE 2。(9,2 

99 ) 

239 Q1=VPEEK( &H1899+XX+YYx32) :Q2=VPEEK(& 

H1899+(XX+1)+YYX32):TF (Q1=245)0R(Q1=246 
)OR(Q2=245)0R(Q2=246) THEN GOSUB 369 

249 TI=TI+1:IF TI>199 THEN TI=9:1F LEV>2 
THEN LEV=LEV- 1 

259 SC= ら C+ 1 

269 IF INT(RND(1)xLEV)=9 THEN LOCATE 29。 

RND(1)x29:PRINT AL$: 

279 IF INT(RND(1)x19)=9 THEN LOCATE 29,.R 

ND( 1)x29:PRINT DI$: 

289 IF INT(RND(1)x5)=9 THEN LOCATE 29,RN 
D(1)x21:PRINTKMS: 

299 IF INT(RND(1)xLEV)=9 THEN LOCATE 29, 
22:PRINT CHR$(128)+CHR$( 128) 

399 GOSUB 809 

319 VP=VPEEK( &H1899+X+Yx32):1F VP=245 OR 
VP=246 THEN 469 

J29 1F VP=247 OR VP=248 THEN GOSUB 429 
339 IFPVP=128 OR VPEEK(&H1899+X+1+Yx32 ) =1 
286 THEN 469 

349 GOTO 1109 

359 
369 

379 LOCATE XX。YY:PRINT" "5 
389 FOR I=&HF9 TO &HEF 

399 
499 
> 9 ) 
419 
4209 
439 
449 
459 
469 


NEXT:SC=SC+399:Sw=9:PUT SPRITE 2。(-8 


RETURN 

BEEP 

の じ = ら C+ 1 99 

LOCATE XX-1.Y:PRINT" "5 
RETURN 

FOR 1=9 TO 
479 PUT SPRITE 
29 ,9) 

489 PUT SPRITE 
((X+1)X8,Yx8) 
499 FOR !=&HE9 
S599 PUT SPRITE 
S19 PUT SPRITE 
+ 1 

S29 

539 PUT SPRITE 
29,9) 

o549 MI=MI-1:IF MI=9 THEN 559 ELSE 99 

S59 FOR I=9 TO 199:A$=INKEY$: NEXT 

S69 LOCATE 12.8:PRINT "GAME OVER" 

579 LOCATE 12.19:PRINT "SCORE" SC: 

S69 IF SC>HS THEN HS=SCELOCATE 19,14:PRI 
NT "YOU ARE HIGHI "ii:BEEP 

599 LOCATE 12.12:PRINT "HI-SC" 5HS: 


19:PLAY “07L64B "ENEXT 
り 。(-29。9):PUT SPRITE 1 。(- 


う 。 (XX※G。YX8):PUT SPRITE 4。 
TO &HEFF 


さ 。 (XXB。YX8) ,RND( 1 )※14+1 
4 。((X+1)X8。YX8)。RKND( 1 )※14 


さ 。(-29。9):PUT SPRITE 4。(- 
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へ いひ 
生 ツ ーー メス 深 
ドー 


〇 い 


@ ワン ダー バギー の つづ き 


699 IFINKEY$="" THEN 699 
619 GOTO 49 


620 一 790 


800 


スプ ライ ト の キャ ラク タバ パタ ー 
ンジ *・ デ ー タ の も セッ ト 。 
左 ス クロ ー ル 。 


629 A$="93979D1D7F675B18":GOSUB 879:SPR1 OO エス クロ コール を BASIC だ け て 
TE$( 249 ) =A$ 実行 する 。 800 行 の USR と 同じ 
639 A$= "89FC697CFEE6DA18":GOSUB 879:SPRI 働き 。800 行 を REM 文 に し て ご 
TE も (241 ) =A$ らん 。 

649 A$="C9E23FE2C9999999":GOSUB 879:SPRI | 80 デー タ 秋 換 用 
TE$(242)=A$ 880 一 890 IS 
659 A$="1234567899ABCDEF":GOSUB 879:SPRT JO_。 上 BE 
トー ーー テージ ジィ 
679 A$="9E7FF7EFFF7F3B99":GOSUB 879:CH=2 

43:GOSUB 6889 

689 A$ も ="68FCFEDEBEFC3999":GOSUB 879:CH=2 

44:GOSUB 889 

699 A$="919B979D1F979A11":GOSUB 879:CH=2 

45:GOSUB 889 

799 A$="89D9E9B9F8E95988":GOSUB 879:CH=2 

46:GOSUB 889 

719 A$= "9193969C9C969391":GOSUB 879:CH=2 

47:GOSUB 8689 

729 A$= "89C969393969C989":GOSUB 870:CH=2 

48:GOSUB 889 

739 

749 PUT SPRITE 9,(9,.209) ,19,249 

759 PUT SPRITE 1.(9.209),19,241 

769 PUT SPRITE 2.(9.209) ,12.242 

779 PUT SPRITE 3,(9,209) , , 249 

789 PUT SPRITE 4。(9.299) , ,249 

799 RETURN 

899 A=USR(9):A=USR1(9):RETURN 

819 FOR XX=1 TO 31 

829 FOR YY=9TO 23 

839 VPOKE &H1899+1XX+YYx32- 1 ,VPEEK(&H10809 


+XXX+YY※d2 ) 

849 NEXT YY。XX 

859 LOCATE 9,.9:PRINTSPACE$ も ( 32 ) : 

869 FOR YY=9 TO 23:LOCATE 31.YYEPRINT”" 
>: NEXT:RETURN 

879 B$="":FORI=9TO7: B も =B$ も +CHR$(VAL("&H"+ 
MID$ も (A$,Tx2+1 2) ) ) : NEXT : A や も =B も : RETURN 

889 AD=CHXG 

899 FOR I=9 TO 7:VPOKE AD+ 1 ,ASC(MID$(A$*, 
I+1,1)):NEXT:RETURN 

999 AD=&HF399 

919 READ D$S:IF D$S く >"END" THEN POKE AD,VA 
L("&H"+D も ) :AD=AD+1:GOTO 919 ELSE RETURN 
929 DATA 21,.91.18,11.29.99.91.1F,、18,ES5 ,C 
5 CD,4A,99,2B,CD 

939 DATA 4D,99,19.23.19,F5,C1 ,E1 ,23,9D,2 
9 ED, AF ,C9,99.99 
949 DATA 21,.1F,18.11.29.99,91 99,18.3E,2 
9 CD,4D,99.19.19,FA,C9 

959 DATA END 


まき まき 
きき まき 
きき きす 


\S\ ま まき きゃ s 
を まま きま ます きま 


まま ます 


に 
ee 
29 
に 
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ーー PS 
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@「 プ ログ ラム - ボ ミ : 


いつ も 失恋 ば か が かり し て いる キミ の た 
め の ハ ー ト 狩り ゲー ム 。 

町 中 の ハー ト を すべ て 手 に 入れ て 、 
町 か ら 町 へ と ワー プ ブ し て いく の だ 。 
カー ツル ・ キ ー て 古 有 上 下 に 動き な 


が ら 。 ドット と ハー ト を 取っ て いこ う 。 
ハー ト は 、 得 点 に な ら な いけ れ ど 、 こ 
れ を すべ て と ら な いと 次 の 町 ヘ ワ ー プ 
てき な いい の だ 。 

ハー ト を すべ て 取っ て 、 も 
うこ の 町 に 未練 


ェ ツ ト 』VOI.1 原作 : 森谷 義也 


町 か ら 町 へ 愛 の 放浪 者 。 


いき な り 飛 び 出 す 大 砲 か ら 身 を か わし 、 
町 中 の ハー ト を すべ て キミ の も の に し て し まお う 。 


が な くく な っ だ ら 、 各 ブロ ッ ク に ある 〈 


ぽ み に 入っ も ゃ お う 。 こ こ が ワ ー プ ゲ 


ー ト だ 。 今 まで いた 町 は スー と 消え て 、 
次 の 町 が 現れ る (も っ と も 同じ 形 を し 
て いる ん だ けど わ ね)。 

だ た だ し 、 最 初 に ハー ト が 出現 し て い 
だ ワー プ ゲ ー ト は 、 も う 使 いも の に な 
ら な いか ら 注 意 。 ど う や ら 、 こ こ で は 
町 の 男 が 既 始 で ジャ マ し て る よう だ 。 

町 の 右側 に は 、 不 気味 な 大 砲 が ズラ 
と な らん で いる 。 とこ 
れ は 恋 の 狩人 の キミ を 


US 


以 


スキ あら ば や っ つけ よう と し て いる の 
だ 。 画面 右上 に 表示 され て いる “REST 
TIME "が 0 に な る た びに 、 ど れ か 1 基 
の 大 砲 か ら ド スン と 弾 が 発 射 され る の 
で 、 や られ な いよ うに 縦 道 や くぼみ に 
身 ち ひそ め よ う 。 

エネ ルギー が な く な っ た だ た り 、 大 砲 に 
あたる と プレ イヤ ー が 1 人 減り 、 3 人 
や られ れる と ゲー ム オ ー バ ー だ 。 

ハイ スコ ア を 記録 する と 名 前 の 登録 
も で きち も やう ぞ で 。 リ ジ ピ イル しだい とき 
は 、W 和 デー を だ だ こう 。 


変数 リス ト 


得点 

プレ イヤ ー の 人 数 
V-RAM の アド レス 

1 行 の 文字 数 
プレ イヤ ー の 位置 

エネ ルギー 

ボー ル ガ が 発 幣 され る まで の 時 間 


キー 人 入力 用 

プレ イヤ ー の 次 の 位置 の キヤ ラノ 
ツ の 読み 出し 用 

ボー ル の 次 の 位置 の レキ ヤラ フク 
の 読み 出し 用 

ハー ト を 表示 する の に 使用 

最高 得点 

最高 得点 保持 者 の 名 前 


ー _ PICK-UP-HEART 
1 SCREEN 1gMEIETH _ 32 5Hー 婦 gsN ま = モリ 


NBHSUE / と 


2 G= RG:VA=H1B kVX=3 

3 BDSUB 34 iM=H1 昌 AA1 :EN= 以 以 

4 み 4 LOCRTE 31 。YiFRINTDHR ま (HFC) 

品 四 HB=1 四 ミニ INT (RNL( 1 ) *6+1) iDN T BUGUE 6 
。 7 。B 9 。 1 。11sBDTOD 1 

6 Y=55 LOCATE 31 」Y FRINTCHR ま (HFC) 』 sgRETU 


RN 
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@PICK-UP-HEART の つづ き 


10 


20 


30 


40 一 110 
120 


130 


140 一 170 


180 一 210 


220 一 240 


250 


260 


270 


280 一 310 


320 


330 
340 一 530 


72 ぢ 


画面 の 初期 設定 。720 行 で は 、 キ 
ャ ラク タバ パター ン ・ デ ー タ の セ 
ツ ド 。 

変数 の 初期 設定 。 

1 ゲー ム ご と に 設定 する 必要 の 
ある 変数 の 値 を セッ ト 。 
ボー ル の セッ ト 。 

ボー ル の 発射 する まで の 時 間 を 
へ ら す 。 同 時 に その 時 間 の 表示 。 
エネ ルキ ギー を へ らし 、 そ の 数 値 
を 表示 。 キ ー 入 力 。 

何 が 入力 され た か 調べ 、 そ れ ぞ 
れ 移 動 用 変数 に 値 を 代入 。 
今 ま で いた 位置 を クリ ア 。 次 の 


位置 の 内 容 を 調べ 壁 で な けれ ば 、 
プレ イヤ ー を 進ま せる 。190 行 で 


は 、 ド ッ ト だ っ た と き の 処 理 。 
200 行 で は ハー ト を と っ た と き の 
処理 。210 行 で は 、 ワー プ に 入っ 
だ が どう か チェ エック する 。 

ゴー ル に つい た と き の 処 理 。 ま 
だ この 面 に ハー ト が 残っ て いる 
か どう か を 調べ 、 残 っ て いな け 
れ ば 次 の 面 へ 。 残 っ て いた ら 、 
何 も し な い 。 

エネ ルキ ー が な く な っ た ら 、1 
人 へ る 。 

今 い る 位置 に 、 プ レイ ヤー を か 
で ぁ 
ボー ル を 発射 する 時 間 か どう か 
調べ る 。 

ボー ル が 発射 され た 。 ブ プレイヤ 
ー に あたっ た ら 、1 人 へ る 。 
あたっ た と き に 音 を だ す 。 


プレイ ヤー を べら す ル ー チ シン へ 。 


画面 を つく る ルー チン 。 


7 Y=BiLHCATE 31 。Y igFRINTCHR ま (HFC) 』 iRETU 
RN 

8 Y=11 iLOCATE 31 4。YiFRINTCHR ま (HFC) 』 iRET 
URN 

7M YY=14 siLOUCRTE 31 4』YiFRTINTCHR ま ( 多 HFC) iRET 
UIRN ' 

1MM _ Y=17gaLUCATE 31 YiPRINTCUHR ま (HFC) 』 iRE 
TURN 

11M YEEMsLUCRTE 31 4.YTgFRINTCHR ま (HFC) iRE 
TUIRN 

1 と の = ロー1 LUCUARTE 2 は dsFRINT Bi 

13M ENEEN-1gLHCRTE BaEEIFRTINT EN ii ロ デ Ms 
STTCE【 吹 ) 

14MM IF 3 THEN ロビ =1 igBOTU 18BWM 

c02 上 TF 人 デモ 7 THEN ロ デ ー1 siGHTD 18BM 


や 
H 


16M 1F 1 THEN ロロ モー は EsBUTO 18BM 
17M IF ES THIEN BEGE BOT 1BM 


18 VFHEE M。32 FVPEEE (MTB) saTF FSS14 人 2 TH 

EN MM+E 

19 中 FVFEEF (M) 』TF F=16 旨 THEN FLAY 

B gB=B+TS LUCATE 3iFRINT Si 

2 以 TF Fm1S9 THEN FLAY "7L64EU sgEN=EN+ 1 所 

2 っ 1 引 ITF FPS147 THEN で 呈 以 

29 尺 FUR XX= 居 TU 31 

23 FUR YYm5 TU GETF VFEEE (V+TXX+YY*VX ) 

=129THEN EN=EN- 全 軸 GBDT で 史 

24 罰 NEXT YY XXiG=G+5gFHR 1 エ = TI 1MgFLRY 
7L64E" giNEXT BHTD 3 以 

2 后 罰 1F EN=M THEN 互 9 以 

2 ム 6 VFDEE M。138 

2 フ 【F Br THEN 1 

2B FUR X=S7 TO 1 STEP 1 

29 LUCATE X。YsFRINT CHR ま (HFCE) * 

3 EF=VFEEE (V+TXー1+YxVX) saTF BEBF=13 昌 THEN 
2 

31 LHCEATE XYiFRINT " 


LUGL. ら 年 


DasNMNEXT gsGOUT 人 生 以 


dZ2 FOR IT=1M TO MM STEF -1 giFLAY "6L64ETs 
NEXT『 

33M BUTU 570 

34M LUCRTE MEIFREINT "DCARCRLH に 円 ド 


ーCRUGH" s 
d 旨 届 LUCATE 1G。1 iFPRINT 
6 LUDCATE EEFRINT 
REBT-TIME" 

LOCATE 1 で 3:FRTNT "Byー" 

LOUCATE M。4:FRINT STRTNE ま (GS HBE) : 
LOCATE MS1iFRINT STRTNGB ま (32 。&HBE) 
4 中 FDR Y= 后 TU 1 STEF 3 

41 臣 LOCATE 以 。Y:FRINT CHR ま (HBE) 』 LHCATE 
中 。Y+1 FRINT CHR ま (HBE) 』 LHCRTE MY+TS FRT1 
NT CHR ま (HBE) 

4 LUCATE で 9。YiFRINT CHR ま (HBE) +"ー リ キビ HR 
ま (HFC) sgLOUCRTE 29』Y+1EFRTNT リリ"+TCHR ま ( 
HBE) 』 iLUCATE 2 の 9。Y+TEaFRTNT " "TECHR ま (HBE 
) s 


も LotE 
"1LF…SEURE 


コア 7 中 
う M 
了 E 信 4 


43 以 NEX 本 540 一 580 ハー ト を 表示 する 。 

44 LUCATE SgFRINT CHR ま ( 叶 HBE) 』gLHCATE | 0ー600 フレ イヤ ー を 1 人 へ ら す 。1 人 も 
29 2 EFRTNT CHR ま (HBE) + キ リー リト CHR ま (HFCE) 請 に 導入 導 KA 
45 届 FUR Y=5 TH SIFOUR X=1 TO 28 0 
46i LHCRTE X』YiFRINT CHR ま ( 多 HRE5) の 入 。 
4 7M NEXT X。Y 670 一 710 再 ゲ ー ム を する か どう か 選択 。 
4 昌 FR Y=6 TO 1H STEF' 3iFHR X= 全 TU 人 で 6 只 | 720-730 キャ ラク タバ パタ ー ン ・ デ テー タ の 
TEF 6 セッ ト 。 

49M LUCATE X』Y:FRINT CHR ま (HBE) saCHR ま (HB | イフ クタ バタ ー ン ・ デ ー タ 。 
E) +CHR ま (HH93) +T じ HIR ま ( 多 HBE ) +EHR ま (HBE ) 』 LOC 
ATE X 。Y+1 siFRINT STRING ま (5 。HBE ) 
5 NEXT X。Y 

1 LHCRTE SS FRINT "1-ーENERBY" 』 iLDCRTE 
16 GS IFRTNT "REBT サ ーー リョ 

本 の 因 LHCARTE 12 SsFRINT HiiLUCERTE 。dsFRTN 
T SiiLOCATE 23。3iFRTINT Ei 

5 LUCARTE 15。3gFRINT NE ikiLHCRTE BSSsFR 
INT ENisiLUCATE 24 22sFPRINT Ri 

呈 4 軟 FUR E= 中 TS 中 
5 拓 XTNT(RNHL( 1 ) % 全 后 キ 1) gsYTNT(RNEIC 1 ) 1 所 本 
) 

ら 6 四 TF VMFEEE (MTX+YTXMX) =1 人 4 THEN 所 呈 以 
7 LHCRTE X。YiFRINT CHR ま (SHB1) 』 kNEXT 
5 日 RETURN 
OM RRー1 1F R= 錠 THEN 6 る 1 以 

6 BHT 3 上 

61W LHCRTE 12』11gFPRTINT "ERME ロ UER" :FDR 1 性. 放 
= TO 1wiFILAY " ロ 5L64BV ENEXTiFHR Im TO 1 1 
MsNEXT し 
62 IF SH THEN 67M 

63 CELSiH=BkFHR BH= 以 TH 1 STEF dsLOCART 
E 4』17 

64 以 FRINT "YOUR SECHRE ーー HIT-BCCIRE" jsNEXT 
sFRTNT 

器 軸 1F INEEY ま リリ THEN 6 旨 届 ELSE INFUT 『"Y 
HUR NaAME (MAX(B)) 0 giN ま ETF LEN(N ま ) 日 THEN N 
ま =LE ビ FT ま (N ま 。B) 

ら 66 以 ? 

67M FRTINT " REFL 人 YY (YZN) 「* 
6B F ま ITNEEY ま 』TF (F ま = リ "YU リキ (F ま ="yP)THEN 人 
了 

ら 69 以 TF 【(F ま = リ N"D+(F ま = リ "nm"Y THEN 7MAELSE 6 
以 

7 EL FRTNT FRTNT" DC RYE !" 
?1 中 ENI 

7 で RERTI LT ま IFT ま SUENEITTHENRLimVaL (" 多 H" TI 
ま ) BsFHR TmMTH7 REREIL ま MFCEE 人 ロ +T 。VaL(" 
HU TEL ま ) sNEXTiBDTI 7S 以 
プイ 3 RETLRN 

74 LRTR FC。MM。72B』FE FE 。FCE」FD 7 
7 后 久 RT 9 。 以 届 。 以 誠 WM 。W 四 。 罰 届 。 以 届 。FF 。FF 

26 LATR BE 。FF 。FF 。FF 。FF 。FF 。FF 。FF 。FF 
77M HAT BA。3C。3C。1B。FF 。18。3C 4 人 SB1 

7 TaT 人 ENLI 


ルル ん 


水 が ヒ タ ヒ タ 押し 寄せ て 〈 る 油 窟 の 
な か に 置か れ た 金塊 を 、 浴 水 服 に 身 を 
か ため て すべ て 引き あげ る ゲー ム 。 

カー ツル マキ ー (まだ は ジョ イオ ・ ス 
ティ ッ ク ) て 洪水 夫 を あや つっ て 、 水 
の 中 へ 入っ て いこ う 。 お っ と 、 ち ょ っ 
と 待っ だ た 。 そ の まま いき な り 入 る と 、 
すでに 室 息 し て し まう 。 洞窟 の 上 2 段 
て 左右 か ら 飛 び 出 し て くる 02( つ まり 
酸素 ) を うま く キ ャ ッ チ し て 、 酸 素 量 を 
ある 程度 、 確 保 し て か ら だ 。 
酸素 量 は 画面 下 


ま 。 
kJ 


@「 テ クノ ポリ ス 」 山 


C 月 号 原作 : 吉川 直樹 


ザ バ ン ザ プ ザ プ 、 水 位 が どん どん あがっ て くる ぞ 。 
ボン べ い っ ぱい に 酸素 を つめ こん で 、 


水中 の 金塊 を 引き あげ ろ / 


rrEEE ビ 


の 0。 の と ころ に 棒グラフ で 表示 され 
て いる か ら 、 常 に 注意 し て お こう 。 
水 の 中 に 入る と 急速 に 酸素 が 減っ て 
いく て 。 も う あ と わずか し か な い / と 
な る と 、 洪 水上 が 赤く な る の で 急い で 
水 の 外 に 出 て 酸素 を 補給 し な くち ゃ い 
け な い の が だ 。 
金塊 を 全部 取る と 、 
FE に あい て いる 穴 か 
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だ っ て 、 酸 素 が 0 な ん だ も ん 。 い ちこ 
ろ で 窒息 し ちゃ うそ ぞ 。 


ら 次 の 洞窟 へ 移動 し よう 。 

酸素 が な く て な る と 、 ゲ ー ム オー バー。 
スペ ー ス ャ キー ( ほ は だ た は トリ ガー) で 
リン レン オ が だ 。 

面 を クリ ア し て いく 《 だ びに 、 山 て く 
る 酸素 の 量 が 減っ て いく の て 効率 よく 


1 まだ まだ 水 の な か に 入る の は 早 す ぎる 。 


キャ ッ チ し な い と 高 得点 は 望め な い ぞ 。 


変数 リス ト 


面 数 
プレ イヤ ー の 位置 
酸素 の 位置 
持つ て いる 酸素 の 量 
蘭 塊 を 取 つ だ 数 


で 二 - ク 
同 写 点 


得点 

酸素 が ガ 出 て いる が の フラ グ 
本 横 秘 動 用 

水位 
水位 を あげ る の に 使用 
画面 読み 込み 用 
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160 一 190 
200 一 260 
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画面 の 初期 化 . 


変数 の 初期 化 。 

スプ フラ イト の セッ ト 。 タイトル 
表示 

各 面 ご と の 変数 の 設定 

色 の セッ ト 

画面 づく り 。 。 

画面 デー タ の リー ド 
金塊 の セッ ト 

実際 に 画面 に 表示 する 


得点 欄 の セッ ト 
メイ ン ル ー チ ン 
酸素 の 表示 

キー 入力 

フレ イヤ ー の 移動 
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フレ イヤ ー の 移動 方 向 に 何 が あ 
る の か 、。 金塊 な ら 、 取 る 。 水 の 
中 な ら 酸 素 を へ ら す 

酸素 が な く な っ た ら 、 ゲ ー ム オ 
3 

フレ イヤ ー の 表示 
酸素 を と っ た と き の 処 理 

外 に 出 た と き の 処 理 
水位 を 増す 

仮想 画面 上 に 水 の デ ー タ の 記入 
ケー ム オ ー バ ー 時 の 処理 。 キー 
人 入力 が ある と 、 再 ゲー ム 

外 に 出 た と き の 処 理 。 次 の 面 へ 。 
酸素 の 量 を 表示 

タイ トル の 表示 
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MSX 値段 は ちよ っ と 高め し な る けど ご 、 ほ か の パソ コン に 
の ひけ を と ら な い 新 MSX い よい よ 登 場 / 


ら 月 に MGX の 新しい バー ジョ ン MS ペ 6 細 MNIII3 ニア 

2 が 発表 され だ 。 実際 に MSX2 の マシ ン 

ガ 売 られ る よう に な の る は 、 秋 以降 に な Ne 多 

り そ う だ が 、 主 な 変更 点 と し て は 、 ] 

1. メモ リ は 64K バ イト 以上 2 。 

2. 言語 は 48K バ イト の MSX-BASIO ュー・ 「 akCNY 
Ver. ぢ . 〇 8 ACF 

3. 「 ロ ー レ ゾ 」 と いわ れ だ た スク リー ン | 「 ( 
の 分 解 能 は 、 今 まで の 256X192 ド ツ 「 本 
ト か ら 512x212 ド ツ ト に グレ ー ド ア に ーー バー 
ッ プ 。 色 は 512X212 ド ッ ト 時 で 512 色 
中 の 4 色 、256x 212 ド ッ ト 時 で 512 色 
中 16 色 使用 可 (だ だ し VRAM を 128 
キロ に 拡張 する と 、 そ れ ぞ れ 15 色 、 
256 色 使用 可 と な る )、 ま た テキ スト 
表示 も 最大 80X26 行 まで 可能 に な つ 
だ 。 ま た スプ ライ ト 機 能 も 強化 され 
1 水平 線上 に 同時 に 8 個 ま で スプ ラ 
イト 表示 が で きる 。 、、、 間 PT < 縛 

4, 9 声 の FM 音源 シン セ 、 ライ ト ベ ン 、 生 入 
デイ スク 、 マ ウス 等 の 各種 オプ ショ 生 ー 
ン に つい て も MSX 規 格 が 定め られ 、 
MGX な ら で は の 互換 性 を さら に 保証 Msx2 の 実演 。 さ す が に グラ フィ ッ ク が きれ い だ っ た 。 は や く 出 わ ま る と いい な 一 , グ 

と いつ だ 点 が あげ ら れる 。 

の. の ブラ フィ ッ ン 関係 の 強化 の 一 番 
の 目的 と し て は 、 キ ヤ プ テ ン シ ス テム な 
どの ニュ ー メ ディ ア に 対応 する と いう ご こ 
と が あり 、 通 信 メ ディ イア の 家庭 用 端末 機 
と し て の MSX が 考え られ て いる 。 Me: に 

問題 と な る の は 従来 の MSX の 互換 性 Ge 
だ が 、BASIC か ら マ シン 語 レ ベル まで 
の 完全 上 位 互換 性 が ある だ ため 、 今 まで の 
ソフ ト ・ ハ ー ド は すべ て 使う こと が で き 
る そう だ 。 

価格 は 今 ま で の も の より 1 クラ ン フ 
上 に な り 、 ほ か の ビッ ト パ ソ コン と 売 
れ 行き 競争 を し そう だ が 、 そ れ で も この 
グラ フィ ツク と サウ ンド 機能 や 、 ほ か の 
面 を 考え る と 今 ま で の 主流 パソ コン に 比 
べ 割 安 と は いえ そう だ 。 

も し か し た ら 、 あ と 10 年 後 の 日 本 で は 
パソ コン と いえ ば MSX2 の こと を いう よ 
うな こと に な る ガ も ( マ ) 。 


す ) 
し ゴ す ゃ w ゃ ム 


ム マ イコ ン シ ョ ー て MSX2 の 発表 に 、 み ん な 期待 の 目 で 見 入っ て いた 


7 の を 


> 富合 
OR 


遊び 万 


ホン モノ の 宇宙 船 っ て の は 、 進 みた 
い 方 向 に か ん た ん に 飛び まわ る も の じ 
ゃ な い 。 回転 と 直進 で 、 い ろ ん な 計算 
を し な が ら 進 路 を 決め て いく も の だ 。 
を の 点 、 こ の ゲー ム は 、 操 作 が 
実に リアル に で き て いる 。 
画面 中 央 の 三角 形 み た いな 宇宙 
船 が キミ の あや つる VECTOR だ 。 
カー ツル ・ キ ー (まだ は ジョ イ ・ ス 
ティ ッ ク ) て 操作 する の だ けど 、 な み 
の ゲー ム と は 勝手 が ちがう 。 
[キー は 、 も ちろ ん 直進 。 押 し て い 
る あい だ 、 6 段階 で スピ ー ド が あがっ 


て いく 〈。 い っ だ ん あがっ だ た だ ス ピード は 、 
李 に 加速 し な いか ぎり 、 ず っ と 保 だ た れ - 


て いる 。 これ は 、 和 宇宙 空間 と ほとん ど 
同じ 動き 方 だ 。 

で も 四 キ ー は 使え を な い 。 つ まり 逆 
に 加速 する に は 、 VECTOR を 180 度 回 
転 き せな いと だ め な の だ 。 

回 転 す る の に 使う の が 器 と 日 。 左 回 
転 は 円 、 右 回 転 は 。 こ れ で 適当 な 角 
変 あ や つけ て 、 還 キー を だ だ け ば を の 方 
向 に 直進 する の だ 。 ジョ イ ・ ス ティ ッ 
ク を 使う と きも 同様 だ 。 ~ 

で も 、 ど の くら いと の 方 向 に 加速 す 


原作 : 村上 入 塚 


四方 入 方 か ら に じ り よ る 敵 の 機雷 。 
右 回 転 、 左 回 転 。 角 度 と 速度 に 気 を つけ て 飛び まわ れ 。 
宇宙 パイ ロッ ト 気 分 が 味わえ る スペ ー ス ・ ウ ォ ー・ ゲ ー ム 。 


れ ば どん な 動き 方 を する の か 、 な か な 
か 見 当 が つけ に くい 。 を そこ て で 画面 右上 
に 表示 し て ある VECTOR の 数 字 を 参 
考 に し ょ 5。 2 桁 の 数 
字 が 表示 され て いて 、 
左 の 数 字 は 横 方 向 の 
速度 、 右 の 数 字 は 縦 Ne 

方 向 の 速度 を 表し て BK 

いる 。00 な ら 停 止 、 | 

11 な ら な な め に 縦横 SPAAYY,X 1 
1 の 速度 で 動い て い 
る と いう こと だ 。 今 
動い て いる 方 向 と は 
逆 に この 数 だ け 加 速 
すれ ば 、VECTOR 
は 停止 する 。 ち ょ っ 


ご C 


Y1.X2.Y2 
KAKYCCH 
(71 (の 
A 

BB 
BK( ) 


と 練習 し て みよ う 。 こ の 操作 で 、 敵 の 
機 軍 を か わし つつ 、 ス ペー ス ・ キ ー( ま 
だ は トリ ガー) で ミサ イル 発射 。 6 発 
あ た れ ば 消 減 す る ぞ 。 1 面 ク リア する 
ご と に 機雷 も 増え て 難し く な っ て 〈 る 。 
再 ゲ ー ム は リタ ー ン ・ キ ー が だ 。 


変数 リス ト 
得点 
宇宙 船 の 数 
岩 の 数 
宇宙 船 の 向き 
| ワー ク 用 


宇宙 船 の スピ ー ド 
衝突 チエ ツン 用 
キー 入力 用 
現在 こわ し だ 岩 の 数 
岩 の 存 在 の 有無 


7 の 2 


@VECTOR の つづ き 


か な り 小 さく な っ て きた 機雷 。 あ と 2 、3 いい) 
発 撃ち こめ ば 消え ちゃ うん だ けど 、 う ま 


〈 角度 が きま ら な い の だ 。 


“ VECTOR 


100 一 110 


120 
130 
140 一 170 
180 


190 一 210 


7 の 6 


画面 な どの 初期 化 。 

妥 数 を A か ら W ま て 整数 扱い 。 
1220 行 で スプ ライ ト ・ デ ー タ の 
セッ ト 。 1970 行 で USR0、USR 
1 で 使用 する 機械 語 プ ログ ラム 。 
USR 関 数 の 定義 。 

ス フ ラ イト 衝突 時 の 飛び 先 。 
変数 の セッ ト 。 
得点 欄 な どの 表示 。 


字 宙 船 の 位置 を セッ ト 。470 行 で 


は 、XX、YY を POKE で 使え る 


よう に 0-255 ま で の 数 に 分 離 。 


値 は X1、X2、Y1、Y2 に 入る 。 
600、660 行 で は 、CH の 値 に あっ 
た スプ ライ ト 用 の 作業 領域 に 値 
を 代入 。 

弾 の 位置 の セッ ト . 

変数 の セッ ト 。 

涯 の 表示 に 関す る デー タ の セッ 
ト . 

デー タ が セッ ト さ れ た だ た ス ア ライ 
ト の 表示 

ゲー ム ス タ ー ト 


1 CLEAR 1 JHEF7F iSBCREEN 1 。S iMIETH 29 
EEY OFF 

2 HEFINT -MgEITN BE(1 旨 ) gsCHLDR 15。1 。1 

3 GUSUE 122W 

4 ゆ BUSUE 197W 

呈 LEF USR=%&HEF 日 

6 み LIEF UBSR1=&HEFB3 

7 UN SFRITE BODOSUE 129 

BM SC= :SG=3 :E ド = ら 

9 CLB 』F=1 kBE=MkLUCRTE MEFRTNT 
"ikLHCATE 18』MiFRINT "VECETUR" ェ 
1 FOUR IT TO 15kBE(T)=sNEXT 
11 GBPF= 四 XX=12EYY=B7:GHSUE 47:BHSUE 6 
MkXX= 因 YY kBHSUE 47kGBDSUE 4M : ビ H テ ドー1 』 昌 
SUE 6 る 以 

112 BF=1 :XX= 届 YY=kGBDSUE 47gBUHBUB 6IX 
X= ョ YY テ = siBHSUB 47MgBHSUE 6 中 

13 EX ニュ に ド Y テ の ロー の ロロ G ニ の 折 

14 ゆ FOR IT= TH EE+1 

1 居 BF=TiFDEE HF1MTT*9。1 iCLERNTI (1) 1 
2 iCHB BUSUR 66iBHBUE 67 四 1RNLI( 1 ) *d+1 
GS=RNLTI( 1 ) *3+1 

16M amRNTI( 1 ) *4+1 iHN 合 BOBUE 4 は 還 。 作 生 届 。 作 所以 。 
46 吹 

17 NEXT 

1 ELUISGR( ゆ ) 

19 み LUCERTE 1S』1iFRINT "BTART" : 

2 FUR Im T ロ 1WsNEXT 


”_o じ CURE : 


LM LU し CADTE 12。1MyFRJINMNI 

ee ドー 

3 ELUISRR 【 以 ) 

で 人 4 以 GTTCEE (MD) TSBTTUCE【1) 

eo L デ FEEE(HF1MM3)+FEEE【(HF1 還 邊 ) ま EGG sJF 上 
:&HIEEIM THEN FOEE 多 HF1M3』64 FUEE 設 FIF 1 司 』 以 
ELSE 1F 上 で 64 THEN_ FUHEE 多 HF1M3 HLIM EFOE: 
E 名 上 FF 1MM 人 4 

< ら 6 L=FEEE【(HF1M7) +TFEEE( 交 HF ド 1MB) で 折ら EEF トト 
が HGCM FTFHEN_ PHEE 表 HF1M プ る 4 FIOEE 上 IF 1MMB 』 MM 
ELSE 1F LE64 1HEN_ FUEE 半 HF1MM 7 色 H 選 MgFUEE 
gHF 1 MG は 。3 

7 VMFEIEE HH1ERMS 4 7ZgFUIEE HI ド 1MM 4 1 

2BM LFELF+T1 1F LPEEBE+1 THEN し ドド テン 

ec7MA SFRJTE ON 

3MMM TF 3 THEN F モ F+ オ 1 ョ 1F FE 
31 以 1F 人 7 THEN トモ ビー1 1 上 F 上 MM 
3 上 1 THEN GUSUER アァ ZM 
3.J3M ITF 1RIB(M) TGBTRTG ら 1) キー1 
1 以 

34M UN トド GUSUE SO 前 和 7 
SI 。 7/ 呈 以 

35M に ロモ トー1 ト EoOF EsGUESUER らら 6 以 

36 以 」F FEEE【( 多 NH ド 1MMTIELLFW ウ MTFHIEEN GSLIE 1 中 
1 届 

37 の の 4F 1 てく >2/C こ CIHEN DUBSUE 
NN 115M EE し 5 に 1MM 

38M 1F OCSCSCCSTHEN GUSUE 
HEN 119M 

J39M LCRTE 6。aMgFREINT _ RIGHT ま て リ 聞 誠 眉 MTR よ GH 全 
キ も (つの 1 し や (SL) LENM (SI まま (5 し ) うー ま ) 0) * 

只 敵 2 LUERTEES 。 

441M FREINTF HEX ま (人 RES (EX)) HEX ま (RESK(EY))s 

邊 EMBOUTU 3 

43 XSEEMETYEAEGUSLIR 47 BUGLEL る 移 軸 :X メ ニー 
1% ら 61 8 イイ ニー1 ル GE sGUHSUE 47MgGHSUB 紀 4M saRETURN 
4 人 4 XeEoklsTYTE1SBERkGUSUER 47M2gEBHGLIR 6 眉 軸 ょ XX 
デー1%G1 5TT モ デー1 KSEsGUSUE 年 7MgEBOHSUB 4MMsRE TU 
RN 

條 CM XXー 

1 作ら ら 1 8 イ Y 主 
RN 

To1 74 症 時 等 . 和 を 

2 と 1 台 ね 1 。 イ イニ ーー % 避 ご USUIND 
RNN 
作 
條 四 
人 4 凡 
xtMIMM 
1 MM 
re 1/| 
本 1 
介 M| 
oe 
MM 


1] 


THEN F=1 
THIEN F= 


THEN GUSUE 


MkTF SES テ MM THE 


1MEMgTF BEERE 十 


47MgGHSUIR らら MiXX 
選 介 RE TU 


kT hGUSUE 
1XGE gaGUSUE 47 GUSUE 


sYYm1BE5:BDBLUE 47 中 :GUSUE る 中軸:XX 
47 中 BPSUE 4 RETU 
XXmXX*4:TF XXT 愉 THEN XX=65 旨 6 !+XX 
GTNT (XX/ 人 の 呈 ら ) 

X1 ニ XX メー メロ 

YY イ =YY 和 4:TF YY イ テ 以 THEN 
YBINT (YY/ 人 5 ら ) 
Y1=YYーY2xG 呈 6 

RETLRN 
alsHF1 切 1FGF% 

FDFEE AH。Y1 

FUEE AL+1。Y2 


YYm6R361+TY 


220 
240 
250 一 270 
280 
290 
300 一 330 


350 
360 


370 一 380 


390 一 420 
430 一 460 


470 一 530 


540 一 590 


チェ ッ ク す る 岩 の 番 号 。 

キー 入力 。 

宇宙 船 が 、 画 面 か ら は み 出 し た 
と き の 処 理 。 

岩 の カ ウン タ を ふやす 。 

ス フ ラ イト の 割り 込み ON。 
キー 入力 に 応じ た 処理 。800 行 で 
は 、 ス ピー ド を 上 げ る 処理 。 
画面 の キャ ラク タ セ ッ ト 。 

岩 が 画面 に な いと き 、 再 度 岩 を 
表示 させ る 。 

宇宙 船 と 岩 、 弾 と 岩 が あたっ た 
と き の 処 理 。 そ れ ぞ れ 255 の と き 
は 、 ぶ つか っ て いな いか ら 、 何 
も し だ な だい 。 

スコ ア 、 宇 宙 船 の 変位 の 表示 。 
涯 の 表示 位置 、 進 行方 向 の セッ 
ト 

POKE で 使用 で きる よう に 、XX 
を 0-255 ま で の 数 に 分 離 。 
SP で あら わ さ れ る ス フ ラ イト 面 
の 機械 語 ワ ー ク エリ ア に 位置 を 
衝 ド 。 


@VECTOR の つづ き 


っ 7 の 
つ B ゆ 
S7 の 
6 の の 
61 中 
ら 6 ぞ ゆ の 
63 ゆ W 


ゴン M 


PUKE AH+4 。X1 

PUKE AD+S 。X2 

RETURN 
QD=&HF 1 の 1 +GP テ 9 

PUKE ah+2 。Y 1 

PUKE AD+3 。Y2 

FUKE AH+6 。X1 

PUKE AU+ 7 。X ぞ 

RETURN 

VPOUKE &H1B ウ 2+SPx4 。 じ CHX4 sRKETURN 
VPUKE &H1BMd コ +SP テ 4 。 じ L 
RETURN 

FX=M 』FY= テ ー1 siRETURN 
FX=1 sFY=ー1 siRETURN 
FX=1 sFY= ゆ ウ siRETURN 
FX=1 sFY=1 sRETURN 
FX= の ウ の ssFY=1 siRETURN 
FX=ー1 saFY=1 siRETURN 

F メ = ニー1 』FY= ゆ の ウ siRETURN 
FX メ = テ ー1 』FY=ー1 iRETURN 
KX=KX+FX iTF ABS(KX) と 6 THEN KKX メ =6XGGN( 


KY=RKY+FY iTIF AEBS(KY) と 6 THEN KY=6XGGN ( 


XX=EXiYY=KY iBDSUE 47 の GBDSUE 54 
RETURN 

IF PEEE(&HF1@9)<> 四 THEN RETURN 

DN F BUSUB 69 。』7 。71 の 72 。 73M 。74 の 。7 


5 。 76 


に 他 17 ん | 


SF= テ 1 giYY=FEEK(K&HF 1M3)+PEEK(KHF 1 4 ) x2 


6+FYx32 ュ XX=FEEK(&HF17) +TPEEER (&HF 1 MB ) \ ご つら 
+F X※ ゴ コン 


4M 
は SM 
d6M ぬ 
UB 

d /M 


YY イニ =YT/4 ョ XX メニ XX/4s5USUE 47M 
BUSUEB 6MM 
メメ ー ニ FX\1MsYY= ニ FYX1MsSP=1 giGUSUE 4ZMsGOS 


ご 和信 


SFP テ 1 iC じ H=18 コ 5i ビ し テモ 1 1 BUSUE 66MsBUSUER 67W 


sFUEE &HF1m9 。1 


に 1 こ 1 
9 


RETURN 

SPRITE OFF 

PUT SFRITE 1 ,(Q。2 の B) 

PLAY "o ヨ 164B" 

FOR 1= TO 7 

VPUEE &H1B2 。Tx4:VFUEE &H1EBW3 ,1 
FUR L=M TU 1ziNEXT 


NEXT 

UI SFPRKIIE り 。(Q だり ) 
に 1 ここ ここ 

FOR =11 TO 1 BTIEPF -1} 


FUT SFRITE 1 。(2 2MO) giFUHEE HIF 1 ウキ ヴォ エ 


9 
1MMM NEXT iRETURN 


1 ゆ 1 ゆ IF BE(LP-) = THEN_ RETURN 


7 の ど 


600 一 650 


660 


670 一 680 
690 一 760 
770 一 800 
810 一 880 


690 一 1000 


1010 一 1040 


機械 語 ワ ー ク エリ ア に 、 変 位 を 
セッ ト 。 
スプ ライ ト ・ キ ャ ラク タ 番 号 の 
衝 ド 。 
スプ フラ イト の 色 の セッ ト 。 
弾 、 宇 宙 船 の 変位 に 使用 。 
宇宙 船 の スピ ー ド を 変化 させ る 。 
弾 が 表示 され て いな けれ ば 、 弾 
の 発射 。 
宇宙 船 に 弾 が あたっ た と き の 
処理 。 
岩 の 発生 。 


ふち ゃ ん と 影 ま で つい て いる VECTOR 


192g 8P=LF POKE &HF1+SFx9 。1 PL=RN(1)x | 1050-H 


12+ ォ CsGUHSUEB 6 ら 7 1= RNH (1) x* コ +1 : =RNH( 1 ) 3 11901210 
+1 ' 1220 一 1280 


弾 と 岩 が あたっ た と き の 処 理 。 
ゲー ム オ ー バ ー。 

次 の 面 へ 。 

スプ ライ ト ・ デ ー タ の セッ ト 。 


1M3M =RNLI( 1 ) *4+] siHN 人 BUSUE 443M 。 44 45 1290 一 1320 スプ ライ ト が 衝突 し た と き の 

ぅ 年 ら 以 処理 。USR( ) て 宇宙 船 と ぶ 

1M4 RETURN つか っ た スプ ライ ト 番 号 、 US 

1MRM SGPRTTE ロロ FF R1( ) で 弾 と ぶつ か っ た スプ 
ライ ト 番 号 を 返す 。 

1 み 6 四 IF VFEEE(&H1EBMMTDOX4 ) =2 ウ 9 THEN 114MW 1330 一 1960 スプ ライ ト ・ デ ー タ . 

1M7M =VFEEE( 多 日 1 BMTDG 4 オキ 2) :5 じ =SC+Q 

1MBMM IF EEEG THEN VFOEE %&H1 EBMMTDO テ 人 4 オオ で 。 ロ 

+ 和 4 =GOUTO 113M 

1 VFOUEE &H1ETGGX 人 4+2 。 呈 6 

11MM _ FUR 1I= ゆ TU 5MsNEXT :BE (ロコ ロー ) = の 所 

111 ゆ VFHEE &H1BMTG2x4 。G 届 け 

11CM FOOEE &HF 1QO+H2X9 . 四 :BB ニ EE+ 1 

113@ FUEE 多 HF1Q9 MgFUT SFR1TE 1 。 (MM 2 ) 

114MM GS sRETURN 

11SM LOUCATE 11 49:PRINT "BRME VER" 

116M LOCATE 1 1 ,22sPRTNT 『H ュ モー [上 RETURN] ドド 

選 y 引 s 

117 の IF _ INEEY ま ECHR ま (13) THEN 117 

118M GUTH 

119M LUCATE 11 。9』iFRINT "NEXT STABE "kBE=E 


ド +1 iTF BEK>11 THEN BK=1 1 
1 と MM FUR I=M み TH 2sFLAY "oO6164b" isNEXT 


1 ど と 1 ゆ M LOUCATE 11 9sPRINT " 


プ M 


122 FDR 1= TU 155:iH ま = リリ" 
123M FUR PF=g TU ヨ 1 :RERL 人 まま :E 生 =H ま +CHR キ (Va 


("ロリ オ 全 ま ) ) iNEXT :SFR1TE キ (1 ) =E ま sNE XTT 
1 人 4 SGP=M iC ビ H テ = iC ビレ = ミ 7 :sBHSUB ら 66 siBUSUB 67 


=-I SF テ 1 iC ビ H=15 iL=1 1 siBHGUE 66M 
BUSUE 67M 


1 どら 6 以 
1 /MW 
1 Cd 
1 ご ワ M 
1 3M 以 
131M 
1 3 
133 中 
134MW 
13=iM 
1 3 ら 6 中 
137M 
138M 
139 以 


FUEE 


&HF 1 9 。W 


RETURN 
SFRITE OUFF 
1 USR1 ( 以 ) 
DS=USR1 (1 ) 
RETURN 


HI 人 QT 谷 
HIT 内 
内 丁 頒 
人 本谷 
IT 谷 
HH 人 T 合 
LH 失 1 合 
内 十 失 
内 T 伯 
LHRaTR 
可 内 寺谷 
内 T 介 
人 T 全 
HAT 人 
HI 全 T 谷 
可 人 征 谷 


1 1 。 の 3 。 。 の 5 。 の 4 9 。 の na 
1 1 12 。25,22.45 。47 。 9C 。E 
B , 日 。 4@ 。C 。 6 の 。E 。 7 。FW 
F , 7 ,FC 。FC 。FE 。FE 。 3F 。 7 
W の 。 3 。1 じ ,E1 。B 。6 王 
1 」 の 5 の 3 。 の 1 。 四 1 。 の 罰 。W 。W 
3 。F 。72 BE 。2C 5C 。BC 。7 昌 
FB ,7B ,F 』F 。F 。 EE 。 6 
CM 。 EBM 。BC 。43 。4 の 7 。2 人 5 
2 ,3F 。7F ,7F 。7F ,FC 。F 。 じ W 
2 の MC 。3 以 BC 。6E 
FF ,FC FCM 。 の の 。 の 。 の の 軟 
の 。 の 。M の 1 1 の 2 。W 呈 1E 
7F FF ,FF 1F 。3 。 。 MM 。 以 以 
6 。 人 1 の 19 四 。4B 。B 
4 。E4 4 。F4 。FA」 7 人 。MF 。 


"ssBUTD 


[ 


| 
| 
由 


』 


| 


AA 
NR AN ww 


A^ 敵 の 機電 


「 


な か の 球体 が ち ぢ む の だ 


イル 


@ VECTOR の つづ き 


1 人 49 以 
1 MM 
11 以 
1 CM 
AS 
1 ご 人 4 以 
1 に CM 
1 6 以 
] 7 以 
1 5 以 
1 に 人 ⑦ 以 
1 MM 
161 由 
1 6 記 以 
1 6、3 以 
1 6 人 4 居 
1 6SiM 
1 ら ム 6 以 
1 る 7 中 
1 6G 以 
1 6 ら ヴ 以 
1 7M 以 
1 / 1 以 
1 7 ど 四 
1 73M 
1 7 年 以 
1 7CiM 
1 7 ム 6 以 
1 7 7M 
1 7 は 以 
1 7 ツウ 由 
1 日 以内 
181 以 
1 で MM 
1 は 3 以 
1 昌利 以 
1 は 8 以 
1 6 以 
18 は 7M 
1 は は M 
1 は 9 届 
1 ⑦ 居 以 
191 以 
1 9 に 以 
1 73 以 
1 全員 
1 9 員 違 
1 9 ム 以 
197MW 
1 9 内 


本 し ( 届 


NN 
1 99 以 
中 眉 以 


人 十 人 
Ha T 谷 
人 T 伯 
HIQT 全 
HaT 代 
仙人 
LT 
HI 人 RT 内 
HI 伯 征 失 
LHRT 全 
HH 白白 
HaT 
Hi 人 1 馬 
上 内 上 内 
LRT 人 
Li 人 RT 失 
LRTR 
LRT 
HIGT 失 
HIATR 
LT 人 
HAT 人 
HH 仙人 欠 
員 全 「 頒 
哲人 
ERT 全 
La 十 白 
LT す 台 
HH 全 T 折 
HIT 
HH 仙 征 失 
内 十 伯 
内 征 伯 


HaT 
上 谷 仙 
吊 失 内 
LRT 人 
本 白 
員 全 内 
LT 折 
人 T 谷 
HH 白白 
人 本 人 鈴 
LT 人 
LT 人 
哲士 折 
Ha 上 失 


EQ 。9C 。43 45 22 25 12。11 
MA 。 9 の 7 。5 2 。M3 。 以 1 1 
7。dF 。FE。FE』FC 。FC 。FB 。FB 
FM 、FM 。E EC 。 じ CM 。 BB 
6 。AS 。WS 。WB 。B 。 9 。12 11 
12.25 。2B 3F 。5F 。7E 。F み CM 
 。 MM BB 。 4 。E。 78B 
FE 。FF 。FF 。FB 。 じ CM 。 の 。 MM 
MM 。 WW 」 以 届 WW 以 3 。MC 。 は 1 Ca 
FF 。3F 。MF 3 。M 。 MM 。M MM の 
3 。MH 。31 。C2 2 JMA 4 。BC 
FC 。FC 。FE 。FE ,FE 。3F 。MF , ゆ 3 
CBM 。4E 。61 34 。3 。3LI 。1E 
1F 。1F 。F 。MF 。F 7 47 。M6 
MM 。 MM 。MM CM 3B 。7 41 6 
5 日 。 全 W 。4W BMW 。 日 。 WW 。 以 MM 
Cd 。QF 。5F 。dF 。7F 。3F 。HF 。aF 
DF JaF 5 4 2 SM aaC に コ 
Cd 。FS』。FA。FC 。FE 。FE 。FF 。FF 
FF 』。FF 。FE 』。FE』7C ビ FR 。3S5 Cd 
CM nd3 5F 。dF 。3F 。3F 。7F 。55F 
6F SG OR 25 3 SC 。A3 。CM 
3 CS 。FA。FE。FE FC 。FE 。FE 
FE 。FE』FC。7C FC。78 CE 。W3 
CO nM 。53。2F 。1F 。1F 。3F 。37 
5 目 5 12 11 2 に 53 。AW Mg 
3 。ME CA 。F4 。FB。FB』FE 。FC 
FC。7C。BB。7B 74 CA 。MSS MM3 
CM 。nW 5 2 で 917 。WF 。F 。1F 
1 MD MG 1 6 2 9 5 RM 。 じ MM 
3 司馬 94 EE 。FM FM FE 
ドロ 7M FM 6B 494 MA MS MM3 
仙人 B。1 折 WWF 。 以 7 。 相 ド 
生還 生 ME 1 5 SB SI RM に 以 
3 。 邊 。 居 仙 1 人 4 BB ド 史 EE 届 。F 中 
FM 。6M 。 7 人 日 1 人 4 。 以 全 MM3 
MM 2 14 MR ME MS 
3 27 。MR 14 SB SI 。 仙 以 。 じ 以 
3 。M7 MR 1 4 で 日 人 MM 。 じ 中 
CM 1 4 MM 人 MS 3 
2 ま I/ の 全 せり まま 午 りり 
條 全日 。 昌 』 還 6 。B 1 区 人 1 。 以 
の の の 人 4 四 WE 1 本 41 
2 14 。 。 全 」1 以 日 。 軟 6 MM 
四 商 。 誠 還 。 還 症 。 以 抽 。 以 軸 6 WM 
3 。 の Fi 。 以 届 。 軸 MM 。M 。 以 以 
四 六 。 居 以 』 誠 本 症 軟 。 以 和合 症 人 届 。 記 
MM 。 生 」 全 Ma 」 以 生 MM 。 以 。 届 


REGSTOURE 119“ 届 LU デル HEF ER 了 


RE 


H"+ ま ) js 全身 HT1 BHT 


LT 折 
人 人 


HU キュ 1F HH ま E ま EVENID THEN FUEE PEV 
19EBUM0 ELSE 


9 。B6。EF 。EB。1D。F@。 人 F 。32 
F4 FM で 1 MM F1 で は ド 四 FM 


21M LT BA。F4 FM CHE B7 。W SF 学 


7 7 の 


1970 一 1980 USRO、USR1 用 機械 語 プ ロ 
グラ ム の セッ ト 。 

1990 一 2310 USRO、USR1 用 の 機械 語 ブ 
加 ダ ラム 。 


* メモ リマ ッ プ 

EF80 一 F078 ブフ ブログ ラム エリ ア 
F079 ン F1FF ワー クエ リア 
F100=F17F デー タモ エリア 


w 機械 語 フ プロ グラ ム に つい て 
機械 語 プ ログ ラム は 、 大 きく 2 つの 部 分 に 
わか れ ま す 。 1 つ は 、 ス フラ イト の 移動 ルー 
チン で あり 、 も う 1 つ は 、 ス プラ イト の 衝突 
ヂ 豆 必 多 で す 。 
圏 ス フラ イト の 移動 ルー チン 
MSX の BASIC か ら は 、 ス プラ イト の 移動 
命令 が な いた め 、 こ の ルー チン を 設け まし た 。 
この ルー チン の 使い 方 は 、 &HF100 以 降 に 位 
置 す る デー タ エ リ ア に スプ ライ トキ ャ ラク タ 
番号 、 位 置 、 移 動 の 変位 を セッ ト し た あと 、 
この &HEF80 を コー ル す る ご と に 32 個 の スプ 
ライ ト を 同時 に 移動 し ます 。 ス フラ イト 0 を 
例 に と る と 


F100 FLAG 0 一 使用 し て いな い 


上 1 - 使用 中 
′ 央 1 】 
ラ Foy 1" カ 向 人 
イ 
F103 」 
0 Fo。 | メカ 役人 
F105 」 
Fl0e 1 「 生 人 
F107 」 
Fl0s | 


な お 、X、Y 方 向 変位 、X 、Y 座 標 は 、 実 際 の 
アド レス を 4 倍 し た も の を 使用 し て いま す 。 
また 、 そ れ ぞ れ 上 位 桁 と 下位 桁 が 逆転 し て い 
ます ( 例 ・F101 は 下位 桁 、F102 は 上 位 桁 )。 

また 、 画 面 か ら は み だ す と 、FLAG を 0 に 
し 、V-RAM の Y 座 標 に 209 を 書き こみ ス フ ラ 
イト を 消し て いま す 。 

圏 ス フラ イト 衝突 チェ ッ ク ル ー チ ン 

DEFUSR 三 &HEF83 と し た あと 、A ニ US 
R(B ) を 実行 する と スプ ライ ト B と 衝突 し て 
いる ス フ ラ イト 面 番号 を A に 返し ます 。A、B 
は 整数 で ある こと 。 


以 記 四 
1 
以 衝 以 
geMICM 
記 以 の 以 
時 4 
記 以 販 以 
記 評 以 
記 よ 唐 以 
ァ <1 1 以 
e1 記 以 
e 1 3 以 
記 1 介 軟 
1 ご 以 
e1 ム 以 
〆1 7 中 
1 は M 
g 1 ウ 四 
ュー 凡 良 
MM 
ee 以 
ご J 以 
の 條 以 
つの つら 訪 


し を Ju だ 』 ロ 
2 


7 以 
ee ロ M 
< こ 7M 
= っ MI 
とう 1MM 


と み 』 
テニ 


全う 』。 


Ha 「 馬 
伸介 
唱 由 人 
上 内 寺内 
本 上 谷 
内 
HH 内 T 内 
同士 仙 
LRT 全 
内 上 全 
谷合 
人 1 谷 
員 人 十 人 
上 内 十 折 
唱 由 内 
上 内 十 伯 
内 1 円 
内 人 台 
HaT 全 
LT 全 
LT 台 
L 后 「 伯 
器 由 寺谷 
上 明生 夫 
内 T 倫 
同士 台 
内 T 伯 
HI 失 T 頒 
HI 本 馬 
内 T 失 
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ふ ム オ ムロ ン 健 康 パ ソコ ン シ ス テム の デジ タル 自動 
血圧 計 と 血圧 管理 カー ト ソ ッ ジ 


に だ ビス ド 和 2 の 。 トロ 


F FMW。7E 。R ブ 7 。2 。 3。23。] 
2 2 。CI 。 に 9 。E ド 。3B 。 み 谷中 1 


中 4 CH ED。EF 。3B ME 18 
TB FI は 。F CH 4. 。 BE 
1 CH 。4I WW 人 AF 。 人 の 人 向 F。F 以 
77 SF FM 1 1 。 以 9 。 四 。19 
2 の 2 FM FM 2 。FS Fm 。2< 
3 23 22 。FS。FM 3 。F4 。FM 


3C 32 。F4 』F FE 人 G。3B 。B1 
CC 。2E 。23。46 。23。5E 。2< 
の ソー サー サー 
AF JE 2 TI1 FE1 。3F 、3 日 1R 
ER 。72 。2R 。 73。CB。1A CE。1E 
CB 。1 人 CB 。1B。7B 。E ロ 5 。2 向 。F 呈 
FM 。CEI 4 WO SB 2 」F 提 」F 以 


E1 .23 B7 2 はじ 9 3 。F ロ 。 ド 7 
CE 。B7 。M CI 4 仙 」 以 届 。F 2 
Ch 。 4 57。7B JFE ,1 2 
7 。3E 。 me 。32 。F4 FM 。3A 。F 人 4 


FL CH 7 。M 。1 CH 。46 
W,4F 。29。CH。49,M。47。79 
FE ,H1 SB 13 493。3 四 。 以 1 
FE 。19 3 。E 。 7 FM て て IM 
2 。 ド E 。 3A 
F4 。F 四 。3 ビ 。32 。 「F4 「F 。 「FE 。 
dB CC 。3E 。FF 。2 。F 日 。 ビ 7 。QF 
32 。F9。F ブ CO Ba 。 す 4 中 。1 昌 
F3 

ENII 


, ド 


ホー ム ド ク ター シス テム 


ゲー ム は も ちろ ん 、 | NG と ガキ ャ ヤ プ テ 
ン と か が 、 来 だ る べき ホー 
ヨン の 時 代 に 縦横 無尽 の 活躍 を する と い 


ー ム オー トメ ー シ : 利用 法 が ザ 生 まれ て きた よう だ 。 


7 る AD 


還 |) : コン に 専用 の 圧計 とこ カー トリ ッ ジ を ブ : 
| : ラス し 、 家 庭 用 の テレ ビ に 最高 血圧 、 最 低 : 
: 中 圧 、 脈 拍 な どの 名 種 推 物 プ ラフ を 表示 : 
: し 、 家 庭 内 で 健康 の 度合 を 手軽 に 調べ ら : 
・ れる も の 。 


・ われ だ MSX パ ソコ ン 。 ぼ ぽ ぼちぼち 便 利 な ・ 


: その ひと つが 、MSX を 利用 した オム : 
: ロン の 健康 パソ コン シス テム 。MSX/ ソ : 


つて ん 、 病 院 が 
ビッ マ ピ に な り の そつ 


シス テム は 、 デ ジタル 皿 圧計 と 血圧 管 
理 カ ー リ ツジ で 構成 され 、RAM16K バ イ 
ト 以 上 の MSX パ ソコ ン で 利用 で きる 。 テ 
レビ 画面 の 説明 表示 に 従 つ て 4 つの ファ 
ンプ ショ ヨン キ ー を 押す だ け で 、 次 の / 画 
面 を 表示 し 、 血 圧 の 変化 を 見 る こと が で 
きる 。 

血圧 推移 プラ フ 、 日 別 推移 プラ フ 、 月 
別 推移 プラ フ 、 時 刻 別 推移 プラ フ 、 時 日 
列 推移 ソラ フ 、 メ モコ ー ド 別 推 物 プ ラフ 、 
登録 デー ツ 別 推移 プラ フ 。 最 初 の 圧 推 
移 プ ソラ フ は 、 最 大 276 回 分 の 登録 デー ツ を 
最高 と 最低 の 血圧 値幅 を 棒 プ ラフ で 、 派 
拍 数 を 折れ 線 プ ラフ で 表示 する も の 。 そ 
の デー ツ を 、 日 、 月 、 曜 日 な ど で て 平均 化 
し だ の も 表示 で きる わけ だ 。 も ちろ ん 、 
MX 規格 の り プ リン に 接続 すれ ば 、 画 
面 に 表示 され だ 測定 デー ツタ を プリ ント ア 
ラプ ウト も で きる 。 

シス テム の 価格 は 、 皿 圧計 と カー トリ 
ッ ツジ を 合わ せ て 9 万 9800 円 。 接続 せ ず に 、 
血圧 計 と し て の 単独 使用 も 可 。 


77 


@'「 プ ログ ラム ・ ボ 
ダグ 


く 


暗 間 で 、 し か も し つこ い エ イリ アン 
まで 襲い か か っ て 〈 る 敵 怖 の 迷路 ゲー 
だ ら 

RUN リ ター ン で ゲー ム ス タ ー ト 。 
暗い 画面 の 真中 に 1 画 だ け 明 る いと こ 
ろ が あり 、 を そこ に いる の が キミ だ 。 こ 
の まま の 状態 て 迷路 を 探し ある き 、 あ 
ちこ ち に ある 金塊 を 全部 取っ ちゃ う の 
が ゲー ム の 目的 だ 。 

と ころ が この 迷路 の な か に は 、 恐 ろ 
し い エ イリ アン が 泥 じ っ て いる 。 し か 


ほん の ちょ っ と し か まわ り の 見 えな い 暗 聞 の 迷路 。 う か うか 歩い て いる と 、 
ほら 、 ェ イリ アン が いく つい て くる 。 すばやい キー 操作 で エイ リア ン を か 


わ そ う 。 遠く 離れ て し まえ ば 、 も う 追 っ て こ な く な る の だ 。 
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闇 に 迷い 、 迷 路 に 迷い 、 エ イリ アン の 恐怖 に お び え る 。 
頼り に な る の は 、 フ ラッ シュ ・ ボ タン だ け 。 
迷路 の な か の 金塊 を すべ て ひろ いつ くせ 。 


も 、 近 く で キミ の に お い を か ぎ つ け る 
と 、 す か きる ず 追っ か け て 〈 く る 。 エ イリ 
アン に つか まる と 、1 人 ツン し て 
し まう ぞ 。 
金塊 は と きど き 壁 の 向こう に 現れ 
る こと が ある 。 こ ん な と き 、 ス ペー ス 
・ キ ー で 壁 を 壊 そ う 。 燥 は 視界 の 隅 っ 
こ か ら 壊 れ て いく の で 、 な る べく 効 率 
的 に 壊れ る よう 、 キ ミ の 位置 を 修正 し 
た ほう が いい 。 と いう の も 、 壁 を 壊す 
た びに エネ ルギー は 減っ て いき 、 0 に 
な る と も う 壁 を 壊せ な てく な る か ら だ 。 
も う ひ と つい い キ ー が ある 。 ピ リオ 
ド の キー (下段 右 か ら 3 番目 に ある ) 
だ 。 こ れ を 押せ ば 、 一 時 視野 が 広がる 
の で と どん どん 使 お う 。 
金塊 を 取り つく 〈 く し た ら 、 リ ター ン ・ 
キー で 次 の 面 に 進め る 。 
プレ オヤ ー が 7 人 と 
も や られ る か 、'TIME 
が 0 に な る と ゲー ム オ 
ー バ ー。 再 ゲー ム す る 
に 忌 、 リ ター ン ・ キ ー 
を だ だ け ば いい 。 


変数 リス ト 


得点 
プレ イヤ ゼー の 数 

エイ リア ン を 動 す おす ガ 合 ガ の ノ フ 
プク / 

V-RAM の 先頭 アド レス 

1 行 の 文字 数 

カラ ー デ ー ダ の 入る アド レス 
現在 の パタ ツーン 

機械 語 プ ログ ラム の アド レス 

当 0 の データ 

プレ イヤ ー の 位置 
プレ イヤ ー の 変位 

時 間 

エネ ルギー 

プレ イヤ ー の キャ ラク タダ コード 
プレ イヤ ー の まわ り の を 明暗 する 大 
きき 

プレ イヤ ー が 死ん だ 、 な どの フラ ブ 
エイ リア ン の 位置 
エイ リア ン の 変位 


品 な は RE 
HU 


ENERB ザ 
5 提 E 由 2 池 


20 


70 一 220 


230 


240 一 260 


270 


280 一 310 


初期 設定 。 CLEAR は. 機械 語 の 
た め の 和 領域 を と っ て お く た め 。 
DEF USR に より 、| 三 USR(O) 
と する と 、&HF300 へ サブ ルー 
チン コー ル す る 。 
画面 の 初期 化 。 GOSUB1290 に 
より 、 機 械 語 ブ ログ ラム の セッ 
ト と キャ ラク タタ パターン の セッ 
ト を し て いる 


っ ょ わり 
ン 較 き 
の 


変数 の 初期 化 。 

乱数 を 凝 似 的 に 初期 化 . 
色 を セッ ト 。V-RAM の &H200 
0 一 は 、 キ ャ ラク タ 用 の 色 を 格納 
し て お く と ころ 。 &H2000-- 5 
と する と 、ASCII コ ー ド 00H 一 
07H ま で の 色 が 、 青 に な る 。 
各 面 クリ ア ご と に 初期 化 を 必要 
と する 変数 の 初期 化 。 
画面 の 作成 。 GOSUB 1100、12 
10 に より 、BOX や LINE を か い 
て いる 。170 行 で 、 ボ ン ベ べ を セッ 
ド 人 写る 。 
ポン 、 
から 
点数 を 表示 。 プレ イヤ ー が いな 
《 く な っ た ら 、 ゲ ー ム オー バー。 
カー ソル ・ キ ー、 キ ー ボ ー ド よ 
り キ ー 入 力 。 プ レイ ヤー の 再 セ 
ツ ま ド 。 

STICK(0) に より 入力 され た デ 
ー タ を それ ぞ れ 上 下 左右 に 動く 
〈 場合 に 分 ける 。 


ンジ レイ ヤー を セッ 


19 CLEAR 399,&HF2FF:DEF USR=&HF399 

29 SCREEN 1 ,,9:WIDTH 32:KEY OFF:GOSUB 12 
99 

39 DEFINT A-Z:S=9:E=7:C=9:VA=&H1899:VX=3 
2:CD=&H2999:PA=9:SB=&HF399 :M1$= "07L64B" 
49 CLS:LOCATE 15。19:PRINT "WAIT"::FOR = 
9 TO TIME-256xINT(TIME/256 ) : A=RND( 1 ) : NE 
AT 

S59 PA=PA+1:CLS:COLOR 15。4。1:VPOKE CD,9:V 

POKE CD+ 1 .5:VPOKE CD+6 。 9 : VPOKE CD+7 9 

60 A=19:B=19:W=2999:H=1999 

79 Tl1=9:T2=9:T3=24:T4=23:CH= 1 : GOSUB 1199 
89 Tl=1:T2=1 :T3=23:T4=22:CH=9 : GOSUB 1199 
99 FOR T=9 TO 19 

199 XX =INT(RND( 1 )x29)+2:Y =INT(RND( 1 ) x19 
)+2 
119 
)+2 
129 
)+2 
139 
)+2 
149 Tl=X :T2=Y :T3=X +2:T4=Y +1:CH=2:GOS 

UB 1199 

159 Tl=X1:T2=Y1 :T3=X1+2:T4=Y1 

UB 1219 

169 T1=X2:T2=Y2:T3=X2 
UB 1219 

179 VPOKE VA+X3+Y3xVX。3 
189 NEXT T 

199 LOCATE 25,.2:PRINT "SCORE" : :LOCATE 25 
>S・PRINT "ENERGY" : 

299 LOCATE 25,.8:PRINT "TIME 
5。11:PRINT "MAN に 

219 LOCATE 25,29:PRINT "PATTERN" : :LOCATE 
25.21:PRINT PA: 

229 LOCATE 25,14:PRINT ” 甘 洋洋 基 基 基 ※ "5 :LOCATE 
25,15:PRINT "x※ALIENxX"j:LOCATE 25。16:PRI 
NT " ※※※※ デ "< 

239 GOSUB 1949:VPOKE AD,4:MC=5:VPOKE VA+ 

A+BxVX 。MC 

249 LOCATE 25,.3:PRINT S: :LOCATE 25。6:PRI 

NT HH: 

259 LOCATE 25.9:PRINT Wi:LOCATE 25。12:PR 
INT Ei 

269 IF E く 1 THEN 989 

279 TI=STICK(9):G$=INKEY$:PLAY M1$:A1=9:B 
1=A1:VPOKE VA+A+BxVX 。MC+ 1 6 

289 IF 1I=7 THEN A1=-1:MC=7 

299 IF I=3 THEN A1=1 :MC=6 

399 IF I=5 THEN B1=1 :MC=5 

319 IF IT=1 THEN B1=-1:MC=8 


X1=INT(RND( 1 )x29)+2:Y1=INT(RND( 1 ) x19 
X2=INT(RND( 1 )x29)+2:Y2=I NT (RND( 1 ) x19 
X3=INT(RND( 1 ) x29 )+2:Y3=INT(RND( 1 )x19 


・CH=2: GOS 
< 上 4=Y2+1:CH=2:GOS 


"5・LOCATE 2 


タバ / 


へ いひ 
nmー ム 次 
に ドー 


の 


@ALIEN の つづ き 


329 IF G$=CHR$(13)THEN GOSUB 599:IF F=9 
THEN 59 


339 IF G$="." THEN GOSUB 739 
349 IF G$=" " THEN GOSUB 740 
359 


369 AD=VA+(B+B1 ) xVX+A+TA1:P=VPEEK( AD)MOD1 
6 

379 
389 
399 
490 
410 
429 
439 
440 


IF P=1 THEN 469 

IF P=2 THEN 469 

IF P=3 THEN BEEP:S=S+19:W=W+19 
IF P=4 THEN PF=2:GOTO 479 


IF (A1=9)x(B1=9) THEN 459 

SC= 1 : GOSUB 899:VPOKE VA+TA+TBXVX。9 
A=A+A1:B=B+B1:VPOKE AD,MC+16 

459 SC=1:GOSUB 899:F=9 

469 IF C=9 THEN C=1:GOSUB 589 ELSE C=W 
479 IF F=2 THEN FOR !I=9 TO 199:BEEP:NEXT 
:E=E- 1 :GOSUB 1999:GOSUB 1949 

489 W=W-2:IF Ww<9@ THEN 989 

499 GOTO 249 

599 POKE&HF319 ,&HFE:POKE&HF31 1 .3:POKE&HE 
312,&HCC: POKE&HF313 , &H23:POKE&HF314,&HP3 
・POKE&HE376,9 

519 POKE &HF379,9:POKE&HF371 ,&H18 

529 POKE &HF372.,32:POKE&HF373,9 

539 POKE &HF374,23:POKE&HF375, 23 

549 I=USR(9) :POKE &HF311,&H13:T=USR(9):F 
=PEEK( &HF376 ) 


559 IF F=1 THEN RETURN 

569 S=S+CINT(W/19)+CINT(H/19):E ビ =E+ 1 
579 RETURN 

589 D=9:Z1=9:V1=9 

599 Z1=SGN(A-Z) :V1 =SGN( B-V) 

699 IF ABS(A-Z) >=ABS(B-V) THEN V1=9 
619 IF ABS(A-Z) く < ABS(B-V) THEN Z1=9 
629 


AD=VA+(V+V1 ) xVX+Z+Z1:Q=VPEEK(AD):1F 
Q>15 THEN F=16 ELSE P=9 ' 

639 Q=Q MOD 16 

649 IF Q=3 THEN D=3:GOTO 689 

659 IF Q=2 THEN GOTO 799 

655 IF Q=1 THEN GOTO 699 

669 IF Q=9 THEN GOTO 689 

679 IF (Q>4)x(Q<9)THEN =2 

689 7Z=Z+Z1:V=V+V1 :VPOKE (Z-Z1 )+(V-V1 )※VX 
+VA。D:VPOKE AD, 4+F 

699 RETURN 

799 F=9:FOR Z1=-1 TO 1:FOR V1=-1 TO 1 
719 Q=(VPEEK(VA+(V+V1 ) xVX+Z+Z1 ) )MOD 16:1 
F Q<>2 THEN T1=Z1:T2=V1:Z1=1:V1=1:F=1 
729 NEXT V1,Z1:IF F=1 THEN V1=T2:Z1=T1:G 
0TO 629 

725 RETURN 

739 SC=5:GOSUB 899:FOR I=9 TO 1999:NEXT・ 
GOSUB 899:RETURN 


ルル /2 


370 一 400 


420 


430 一 440 


450 
460 
470 
480 
490 


500 一 530 


540 一 550 


560 一 570 
580 一 610 
620 
630 
640 一 660 
670 


680 一 690 


700 一 730 


RETURN キ ー が 入力 され た と 
き 、 画 面 に ボン ベ が 残っ て いる 
か 否 か を 調べ 、 全 部 と りつ くし 
た (F デ 0) と き 、 次 の 面 へ 。 
プレ イヤ ー の まわ り の 5X5 四 
方 を 照ら す 。 

壁 を こわ す 。 

AD の 次 に フレ イヤ ー の 移動 し 
よう と する V-RAM 上 の アド レ 
ス を セッ ト 。 そ の 位置 の 内 容 を 
16 で 割っ た 作り を P に セッ ト 

P の 内 容 に よっ て 、 そ れ ぞ れ の 
処理 へ 。 P ニ 1、2 の と き 壁 。3 の 
と き は ボン ベ 。 4 の と き は 、 エ イ 
因 デジ 

プレ イヤ ー が 動い て いな いと き 、 
暗く する 処理 を スキ ッ フ 

プレ イヤ ー の まわ り を 暗く し 、 
新しい 位置 に ブレイ ヤー で セッ 
ト 

フレ イヤ ー の まわ り を 明る くす 
る 

2 回 に 1 回 の 割合 で 、 エ イリ ア 
ン を 動か す 

モイ アシ が 、 ラ レイ ヤー を つ 
が まえ た どき (CE 三 ) 
時 間 を へ ら す 

は じ め に も どる 

機械 語 フ プログラム を ボン べ を さ 
が す よ うに セッ ト 。 

機械 語 フ ログ ラム を サブ ルー チ 
ンコ ー ル 。 ボ ン べ ベ が 残っ て いた 
ら 。 下す で りり ター ン 

点数 を 増し 、 フ レイ ヤー も 1 人 
増やす 。 

エイ リア ン が 次 に 動く 位置 計算 。 
そこ に 何 が ある の か 読み 込む 。 
その 値 を 16 で 割っ た 余り を Q に 
再度 セッ ト 。 

それ ぞ れ の 処理 。3 の と き 、 ボ 
ン べ 。 2 の と き 壁 、0 の と き 何 
も な い 。 ・ 

それ が 、 ブ レイヤー だ っ た 場合 。 
新しい 位置 に エイ リア ン を セッ 
Fo 

エイ リア ン の 移動 で 、 壁 だ っ た 
と き の 処 理 。 


749 
7S59 
769 


IF H く 1 THEN RETURN 740 
FOR K=-1 TO 1:FOR L=-1 TO 1 
AD=VA+ (B+K ) xVX+A+L 


壁 を こわ す 。 エ ネル ギー が な 
いと き は 、 何 も せ ず リタ ー ン 。 
プレ イヤ ー の まわ り を 見 まわ 
し 、 壁 だ っ た ら 1 つ だ け こ わ 


750- 790 


779 IF ((VPEEK(AD) )MOD 16)=2THEN VPOKE A す . 

D,9:K=1 : 上 L=1:H=H-59 800 一 840 プレ イヤ ー の まわ り を 明る < 
789 NEXT L。K ' する た め の 、 ア ドレ ス 計 算 。 
79 RETURN 650 一 880 機械 語 プ ログ ラム を 、 プ レイ 
899 T1=A-SC:T2=B-SC: T3=A+SC:T4=B+SC 内 Nb Ms 
619 IF T1<9 THEN T1=9 コー ル す る 。 

829 IF T3>24 THEN T3=24 890 一 970 800 一 880 の ルー チン の 逆 。 明 
839 IF T2<9 THEN T2=Bg る くす る の で な く 暗 くす る 。 
849 IF T4>23 THEN T4=23 290 | 
859 VD=VA+T1+T2xVX: POKE &HE312.9:POKE &H 9 


音 を 出し 、 キ ー 入 力 待ち 。 
エイ リア ン の 位置 を きめ る 。 
プレ イヤ ー の まわ り を 明る く 
する 。 


990 一 1030 
1040 一 1080 
1090 


F313,9:POKE &HF314。9 

869 POKE &HF379,VD MOD 256 

879 POKE &HF371,VD /256:POKE &HF319。&HF6 
:POKE &HF311,&H19 

889 POKE &HF372,32:POKE &HF373.9:POKE &H 
F374 ,T4-T2+1:POKE &HF375,T3-T1+1: TI=USR(9 
) : RETURN 

899 T1=A-SC:T2=B-SC:T3=A+SC:T4=B+SC 
999 IF T1<9 THEN T1=6@ 

919 IF T3>24 THEN T3=24 

929 IF T2<9 THEN T2=9 

939 IF T4>23 THEN T4=23 Il、 
949 VD=VA+T1+T2xVX:POKE &HF312.9:POKE &H 四 
F313,9:POKE &HF314,9 

959 POKE &HF379,VD MOD 256 

969 POKE &HF371 ,VD /256:POKE &HF319.&HEG6 
:POKE &HF311 , &HEF 

979 POKE &HF372,32:POKE &HF373.9:POKE &H 
F374,T4-T2+1:POKE &HF375,T3-T1+1:I=USR(9 
) : RETURN 

989  VPOKE CD,5:VPOKE CD+1,5:VPOKE CD+6。 
15 : VPOKECD+7 ,15 

999 LOCATE 5,29:FOR I=9TO19:PLAY"06B64RG6 


1100 一 1200 機械 語 プ ログ ラム を 、 指定 座 
標 内 を ぬり つぶ す よ うに セッ 
ト し 、 サ ブ プルー チン コー ル す 


4":NEXT 9 


1999 
1919 
1920 
1939 
り 


PRINT 
PRINT 
PRINT " Hit [RETRN] key" 

1F INKEY$=CHR$( 13) THEN 39 ELSE 193 


"GAME OVER" 


1949 
1959 
1969 
1979 
1980 
1990 


/=INT(RND( 1 ) x29 )+2 
V=INT(RND( 1 ) x19 )+2 


IF VPEEK(VA+Z+VxVX)=2 THEN 1949 
RETURN 
VPOKE VA+Z+VxVX , 9 : SC= 1 : GOSUB 899:VP 


OKE VA+A+BxVX , MC: RETURN 


1199 
1119 
1129 
1139 
1149 


IF T3 く <T1 THEN SwAP T1,T3 
IF T4 く <T2 THEN SWwAP T2,T4 
VD=VA+T1+T2xVX 

POKE &HF379,VD MOD 256 
POKE _&HF371 , VD/256 


@ALIEN の つづ き 


1159 POKE &HEF372.32:POKE &HF373。9 
1169 POKE &HE375,T3-T1+1 の 褒 Sg。 

1179 POKE &HF374 ,T4-T2+1 1310 一 1330 機械 語 ブ ログ ラム を セッ ト す 
1189 POKE &HEF319.&H3E:POKE &HEF31 1 ,CH る 。 

1199 I=USRE(9) 1340 一 1430 キャ ラク タバ パタ ー ン ・ デ ー タ 。 
1299 RETURN 1440 一 1500 機械 語 ブ ログ ラム 。 
1219 IF T3<T1 THEN SWwAPT1 .,T3 

1229 IF T4<T2 THEN SWwAP T2.,T4 

1239 T5=T4-T2:IF T5=9 THEN 1259 

1249 T5=(T3-T1 ) /T5 

1259 FOR Y=T2 TO T4 

1269 VPOKE VA+T1+YXVX+YxT5。CH 

1279 NEXT Y 

1289 RETURN 

1299 RESTORE 1349 

1399 READ D$:IF D も $ く > "END" THEN AD=VAL( "& 

H"+D$)x8:FOR 1=9 TO 7:READ D$:D=VAL( "&H" 

+D ゃ ) :VPOKE AD+I,D:VPOKE AD+I+T8X16.D:NEXT 


1210 一 1280 
1290 一 1300 


キャ ラク タ に より 、 線 を か く 。 
キャ ラク タ パ タ ー ン ・ デ ー タ 


1:GOTO 1399 
1319 AD=&HF399 


1329 READ D$:IF D$ く >"END" THEN POKE AD,V 


AL("&HP"+D$):AD=AD+ 1 :GOTO 1329 
RETURN 


1339 
13409 
1359 
13609 
1379 
1389 
1399 
1 499 
1419 
1 420 
1 439 
1 449 
1 459 
1 469 
147/9 
1 489 
1499 
1509 


ワー ブロ 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


99 99,99,99.99、0909,99,99.099 
91.FF,FF。FF,、FF,。FF,FF,FE,FF 
92.55。AA。55,AA,S55 ,AA,55,AA 
93.99.98,1C,3E、3E, 3E, 3E 。 3E 
94.18.3C。7E,5A,FF ,FEF ,FF ,A5 
95 99,99,C3,3F ,CB , 88 ,99,099 
96.38.38。19,1C。19,19,28,2C 
97 1 じ 。1C。98.38.98,98,14,34 
98.99.99,88.CB、3P ,C3 , 99 , 99 
END 


"回 AChimne Code fromm &hf399 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


2A,79 PF3,ED, 5B,72 。F3, ED 
4B,74.F3,C5 ,ES , CD , 4A,99 
E6 ,EF , 909.99.99,CD, 4D,99 
23。19。F2。E1 ,C1 19,9D,20 
EA,AF,C9.F5,3E,91 .32 76 
F3,F1 .C9 。END 


ワー プロ と パソ コ 
ン が 1 つ に な っ た F 
S-4000 (松下 電器 ) 


だ いせ つ な ぼ 紙 は 
MSX ワ ー プ ロロ で 出し だ い / 


MSX で も 、 ワー プロ と パソ コン が ー 体 に な つ だ “フー 


コン " が 出現 。 ナ シヨ ナル の FS-4000 が それ だ 。 今 まで だ 
と 、 カ ー ト リッ ジ と プリ ンタ が 別に 和 め 要 だ つ だ の が 、 ご これ 
1 台 で 〇 に と いう わけ 、 1 ペー ジ 分 の レイ アウ ト が 常に 表 
示さ れ て いる か ら レ イア ウト も 考え や すい し 、 英 文 モ ー ド 
を 選択 する と ツイ プラ イマ ター の よう な 字体 に か わる 。 

r ゲ ー ム で 遊ぶ だ け じ ゃ な いん だ か ら 」 と いい わけ する に 


は も つて ご こい 


76 


ガ な 


KABU 


グ 月 号 原作 : 時 岡 良 平 


る 
あく 
> 


ダッ 
プ 


4・ 
ずっ 
み > 


@ テク ノボ リス 』 
これ で キミ も さす らい の キャ ンプ ラー。 
限ら れ た 持ち 点 を どこ ま て 増やせ る か 、 
キミ の 勝負 カン は さえ て る か 17? 


破 廷 し て し まう か 。 


ちょ っ と し だ た ギャ ンプ ブラ ー 和 気分 の 味 
わ え る パソ コン 版 カ フ 

本 当 は 、 花 札 び で や る ゲー ム だ けど 、 
トラ ンプ の ほう が わか りや すい よね 。 
ゲー ム を は じ め る まえ に 注意 。CAPS 
LOCK が か か っ て い だ ら は ず し て お こ 
う 。 こ の ゲー ム は 、 大 文字 に は 反応 し 
な い の が だ 。 

に か キー を 押す と 、 ル ー ル の 説明 

が は じ ま る 。 これだけ だ と 、 ち ょ っ と 
わか り づ らい か も しれ な い の で ちょ っ 
と 補 自 し や 寺 さ う 。 
① 9 ピン 親 ( (コン ピュ ー タ ) だ け の 
人 役 て 、 9 と A で こ の 役 に な る 。 こ の と 
き は 、 キ ミ の か けた 額 の 3 倍 と られ て 
し まう の だ 。 
②4 ピン 子 (プレ イヤ ー) だ け の 役 
て 4 と A で こ の 役 に な る 。 今度 は 逆 に 
か けた 額 の 3 倍 が 親 か ら も ら え る の だ 。 
③ ア ラ シ 同じ カー ド が 3 枚 そ ろ っ た 
と き の 役 。 こ れ を 親 が 作っ た と き は 、 


と : 提 」 


33 旨い 


を 2: 
4 
守 可 中 
の 
生還 


KIM 


旧 
NNN 
時 


INNMMUUNMUMNMMNUHUNNININNNNN 有 MI 
ヒン ね らい 


さあ て 、 ど れ に か け よ うか な 。A や 4 な ら 、 それ 以外 な ら 、 カ フ ま で ね らい 
] だ いい も し 、 0 が Pa 合計 数 を 見 て そこ て 勝負 する も よし 、Y」 キ 
ー を た た いて 、 ア ラ シ を ね ら っ て みる の も お も し ろ い ぞ 


〈④⑧ ニ ゲ ブタ と も いう 。 親 の 9 ピン 以 
外 で 、 合 計 0 に な っ だら ニ ゲ だ 。 一 部 
で は 無 条 件 に 負け に な る けれ ど と 、 
で は ホン ト に 逃げ られ る 。 つ まり 、 相 


キー。 し ば らく し て 、 親 が 自分 の カー 
ド を 見 せ て 勝負 し て くる 。 で も 、 イ ン 
チキ は し て な いか ら 安 心して くれ 。 ち 
ゃ ん と A か ら 10 ま で の 40 枚 を シャ ッ フ 


ーー テ 
ペー トー 


キミ の か けた 額 の 9 倍 を 取ら れ 、 逆 に 
キミ が 作っ た だ とき は 、 9 倍 分 と れる の 
だ 。 だ だ し 、 9 ビン や アラ シ は 親 の は ほ 
う が 優 先 さ きれ る の で 、 お だ がい に アラ 
シ を 作っ た と き は 親 の 勝ち に な る 。 


手 の 強 る に か か わら ず 、 ひ きわ け と 同 
じ 扱 い に な る の だ 。 
⑤⑥ ヒ キワ ケ お た だ たがい に 同じ 数 の と き 
に は 引き 分 け 。 か けた 額 
は そっ くり も どっ て 〈 る 。 

が お お 、 カジ ア と いう ゲー 
ム は 、 ト ラン プ の 数 を 合 
計 し て 1 の 位 が 9 に 近い 
ほど 強い ギャ ンプ ブル だ 。 
念 の た め 。 

ルー ル を し っ か り 頭 に 
だ だ きこ ん だ ち 、 
キー を ひと つた だけ ば ゲ 
ー ム ス ダ メー トド ト 。 キミ の か 
けた だ た い 札 を A 一 D の な か 
か ら 選 び 、 か けた い 額 を 
ち こん で て 、 リ ター ン ・ 


HS 
CA( ) 


D( )O() 
OMSURS 


MA$ 
な に か カ か 上. 


ASNSKAS 
KA 

K や 
GM,G 


ABUOU| 


| 


ル し て 配っ て いる の が だ 。 
持ち 金 が 0 に な る と ゲー ム オ ー バ ー。 
再 勝負 は スペ ー ス ・ キ ー を た た こう 。 


袋 数 リス ト 
7 スズ コア 


配ら れ だ カー ド 用 デー 


ハー デー ト 、 ダ イジ な どの デー タ 


得点 

キー 人 入力 用 

賭け 金 

ご の 列 の カー ドガ 
コヨーテ ー タ 、 ラ レイ ヤー の 
得点 
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@THE KABU の つづ き 


' THE KABU 


1 SCREEN 1 sMIHTH 31 10 画面 の 初期 化 。 

2 DIM CA(4 の ) 。MQ ま (4 の ) 。 人 (3) 。B(3) 。C(3) 。(3 | 20 本 列 の 定義 

) 。0(3) 。DM ま (4) 。UR ま (4) 。SE ま (1 の) 30… 40 持ち 点 の 設定 。 1030 行 で 、 タ 
39 FOUR 1=@ TO INT(TIME/256) *256+ 丁 IME 本 2 

4 H=RNH( 1 ) :NEXT :5S=5 : SBDSUB 19 の 中 NN 

5 PRINT STRINB ま (3 。&zH2A) 』 LUCATE 1 の 。 の WiF | 80-100 スコ ア 表 示 用 メッ セー ジ の 表示 。 
RINT "The KABU" 110 一 140 配列 に カー ド の デー タ を セッ ト 
6 PRINT 後 表示 。 

フ GOUGUB 131 150 一 170 数値 デー タ か ら 文 字 デ ー タ へ の 
Ba PRINT " [LA] [B] [C] FL] "iLUCATE 


1 0 っ 180 一 210 カー ド を 配る 。 
2 5dsPRINT "HI-BLURET 220 一 230 a 一 d ま で の キー を 入力 させ る 。 


9 の LOUCATE ゼ 以 5 人 sFRINT LUG TNG " 持 提 提 提 韻 提 韻 " s H5 sL 240 一 260 賭け 金 を 入力 させ る 。 
UCATE 24.6gPRINT "SCURE " 270 一 360 ^a* の 列 を 選ん だ と き の 処理 。 
1 LOUCATE 2。7sFRINT USTNG " 拓 拓 半 韻 盾 盾 拓 " ョ os 
HHM ま (1)= リ ーー コリ sgOUM ま ()= リ | 

11 ロロ M ま (3) = リ "人 1 sgO0HM ま (4) = モリ トーリ PsUR 和 ま (1)= リ 
ーー 1 | sR ま (の ) に 1 区 | 6 slR 主 (3) < | 区 | 6 

12 ウ UR ま (4)= リ レー 0sFHR エ T=1 TH 4gLUCRTE 』 
1T+2 iFPRINT HUM ま (1T) iLHCARTE 74。 エ TE sgFRINT IM ま ( 
1 ) 

13M LOUCATE 1E』ET+TSEgFRINT OM まま (IT) giLOUCRTE 17 
> エ +2 siPRTINT UM ま (T) iaBEEF siNEXT 1 

14M GOUTOH 18BMW 

15 以 V=CA(H) :GQ ロ ま =RTGHT ま (GTR ま (V) 。1) :iTF 56 伯 ま 
= リリ 1 リ 9 THEN Ga ま = リ " 折 " 

16 1FG ま = リ "MM!" THEN GR ま = リ 1" 

17 久 M ま =MQ ま (H) :RETURN 

18M H=A(1) siGBHSUE 15MsLOCATE 3 は 4。4sFRINT SR 
ま sLUCATE 4 5sFRINT NM ま 

19 H=E(1) siBHSUE 15MsLUCRTE B。4sFRINT 5 
ま sLUCATE 9.SgFRTNT 陣 玉 

2 H=C(1) siBHSGUE 15MsLHCATE13。4sFRINT 5 人 a 
ま sLOUCATE14 SgFRINT NM 玉 

21 以 H=LI(1) giGHSGUE 15MsLOUCRTE1B。4iFRINT Sa 
ま sLUCATE19 SsPRINT 了 MM ま 

22 ウ の 人 Q ま = リリ "saLOUCATE 17gFRINT リト レニ カケ マズ マカ 
(内) ? " ョ gsBEEP :Q ま =INFUT ま (1) sgFRINT 人 ま 
23 TIF まま S"a リ 9 OR まま 2"dO THEN LHCATE MW。17 
sPERINT SFC(3M) ssBUTU SG ELSE に キー 人 ま 

24 ゆ の EEEF iLUCATE WM。17gFRKINT SFC(3M) igLOUCR 
TE Ma17sFRINT "イフ ウラ カケ マズ カー (1MOT ISSO う の 
25 LTNE IJNFUT EE 人 ま sTF RTIGHT ま (ドド 人 まま 1) で ジリ MM" 
THEN 24 ELSE ドド =RBG(TINT(VAL (KR まま) ) ) 

26 の IF EE1 HUR EEG OR _ RIGHT ま ( ド まま 1) セッ 
り 軸 ! 丁 HEN GS4M ELSGEE ド =EAsLUCATE MM。17siFRINT 
SFC (3M ゆ ) 

27 ゆ M IF ド ま SS Pa リ "9 THEN 36M ELSE FOUR T=1 TO 
4sLUCATE 2 で 。6+I siFRTINT MM ま (1) 

28 ゆ BEEF sNEXT 1 』 ョ H= 人 (EE) sgBOSUE 1SM 

29M LUCATE 3。BgFRINT SR ま sLUCATE 4.9:FRIN 
T MM ま も 

3 みゆ IF (CR(R(1))=1 NE CA 人 (BE) )=4) OR (し 
QR(R(1))=4 NLI CA(R(G))=1) THEN F4=1 sN ま =" 
nhn" sGBUTO 2 


凍 人 


7 7 を 


370 一 460 
470 一 560 
570 一 660 


~b” の 列 を 選ん だ と き の 処 理 。 
^c の 列 を 選ん だ と き の 処 理 。 
^d の 列 を 選ん だ と き の 処 理 。 


31M EEEF iLUCATE 17gFRINT | も 9 1 マイ イリ マ 
スカ (Y/N) 2 リョ saN ま =TNPUT ま (1) sgFRINT N ま 

3 IF N ま ="n" THEN GM=CA(A(1))+TCR( 人 (2))s 
GUT 有 OU 37M ELSE IF N ま = リッ y リ " THEN ロ M=C【( 全 (1 ) ) 
+ じ 人 (人 R( デ ))+ じ 人 R(R(3) ) ELSE 31M ぬ 

33M FOUR =1 TH 4kLOUCATE 。1 ウ +T iFPRINT MM ま 
(1 ) 

324 EEEF IiNEXT 1 ョ H=R(3) giGUSUE 15MgLUCRTE 

3。1CsFRINT SR ま sLUCATE 4.13iFRITNT 陣 ま 

35 TF CR( 人 (1))=CR(R(E)) NL CR(RR(1 ) ) = 人 
(人 (3) ) THEN Fa=1 iGBOHTO 37@ ELSE は 7M 

うら 6 メニ CsGUSLUIE ツウ MM 

37M TIF ド ま ETbBV THEN 46 み ELSE FOR 1T=1 TO 

4sLOUCATE 7。 ら +TT giFRINT UM まま (1) 

38M REEF IiNEXT 1giHEB(E) siBUHSUE 13 コ M 

39M LOUCRTE BBiFRINT BR ま sLUCRTE 7949iFRIN 


T MM ま 
4 IF (CA(B(1) )=1 ANLI CA(B(S))=4) OR (C 
A(B(1) )=4 NL CA(B(2) ) =1) THEN F4=1 :N ま = リ 
nsBDTU 4 人 2 以 

41M LUCATE ゆみ 。17:PRINT " モウ 1 フイ イリ マヌカ (y 


/n) で りり 』 kBEEF :N ま =TNFUT キ (1) siFRTNT N ま 
42 四 ITF N ま ="n ロ " THEN BM=CA(E(1) )+CA(B(S) ) 
BUDTD 47 ELSE IF N ま ="y" THEN BM=CA(B(1 ) ) 
+CA(E(2) ) +CA(E(3) ) ELSE 41W 

43 FDR 1=1 TU 4:iLUCATE 7。1+T FRTNT UM ま 
(1 ) 

44 久 EEEF :iNEXT IiH=E(3) sBHGUE 15kLDCATE 
12gFRINT Ga ま gLOCATE 9。13:FRINT MM ま 

4 IF CA(E(1) ) =CA(B(G) ) NL CA(E(1) ) =CR 
(BE(3) ) THEN FA=1 :BDTD 47M ELSE 47M 

46 X=7』GDGUE 99W 

47 1F ドド まま SS"CV THEN 56 ELSE FR 1=1 TO 
4:LHCATE 12 6+I iFPRINT UM ま (1) 

4 _ NEXT 1:H=C(G) kBHSUE 1 王 W 

49M LUCATE 13.B:iFRINT SA ま sLOCATE 14.9zFR 
INT MM ま 

5 IF (CA(C(1) )=1 NL CA(C(2) ) =4)DR (CA 
(C(1) )=4 ANL CA(C(S) )=1) THEN F4=1 :N ま = リロ 
"asGUTO 52 

1 LUCATE 。17:FRINT " モウ 1 コイ イリ マヌカ (y 
/n) で "』kEEEF' kN ま =INPUT ま (1 ) sFPRINT N ま 

呈 ら TITF N ま ="n" THEN GM=CA(C(1) )+CA(C(2) ) : 
BUTU 呈 7 ELGE IF N ま ="y" THEN BM=CA(C(1 ) ) 
+CA(C (2) )+CA(C(3) ) ELGE 1W 

3 FUR 1=1 TO 4kLUCATE 12 1+T FRINT ロ M 
ま (1 ) 

4 EEEF'sNEXT 1iH=C(3) iBDSUE 15iLUCRTE 
13』12 iPRINT Ga ま :LUCATE 14。13:FRINT NM* 
呈 委 TF CA(C(1) ) =CA(C(2)) NL CA(C(1 ) ) =Ca 
(C(3) ) THEN FA=1 iGHTO 呈 7g ELSE 7W 

6 X=12 siBDSUEB 99 

7 ITF ド ま S2"d" THEN 66M ELSEFUR IT=1 TO 4 
sLDCATE 17,6+T iFPRINT UM まま (1 ) 

5 BEEF NEXT 1:H=H(2) GBDSUE 15M 


@THE KABU の つづ き 


S プ 7 LOUCATE 18B。B:iFRINT SR ま sLUCATE 19。9sPR 
INT MM ま 

6Mg 届 IF (Ca(H(1) )=1 ANH CA(LI(2) ) =4) ロ R (C 
a(H(1))=4 NH CA(LI(2) ) =1) THEN F4=1 』N ま =" 
ns5UTO 62 

61M_ LUCARTE 。17gFRITNT りり モウ ニー 1 マイ ゴリ マス カカ (y/ 
n) PP asBEEF siN ま =INPUT ま (1 ) siFRINT N ま 

6 IF N ま ="n リ " THEN GM=CA(E(1) )+CA(LI(G) ) 
GUTOU 67M ELSE IF N ま = リッ y" THEN GM=CA(LI(1 ) ) 
+ じ 全 (EI(E)) TCRA(EI(3) ) ELSE 61MW 

63M_ FOUR T=1 TH 4kLHCATE 17。1M+TgFRTINT ロ M 
ま (1) 

64M BEEF IiNEXT TiH=LI(3) giGDSUB 15MsLUCATE 
18』1CgiFRINT GA ま sLHCATE 19。13sFRINT MM ま 
6SM IF CR(H(1) ) =CA(E(G)) NL CAL(1 ) ) =Ca 
(L(3)) THEN FR=1 :GHTH 67 ELSE 67M 

らら X テ 1 7 siG ロ USUE 99M 

ら 67M FOUR IM TU 3 INEXT 

6GBM_EEEF siEBEEF iLUCATE 1 IFPRTINT の ロウ シブ ロロ " 
2 oe 肖 

69M FOR T=1 TH 4gLHCATE 1 呈 。TT2 giFRTNT LUR ま 
(T) sgFLRY "oOB164D" siNEXT 

7MA FOR IT=1i TO 4gLHCATE 1 旨 。 エ + キ 6iFRTNT UR ま 
(T) sgFLRY "oOB164b "giNEXT 

71M IF ( じ A(H(1))=1 NII CA(H(E) ) =9) ロ R (C 
R(H(1))=9 NII CA(H(E))=1) THEN ド ワ ウ =1 』F= テ 1 : 
BOT 75SM 

7 だ MG=CR(H(1))+TCA(H(G) ) : ロ =VILL (RTBHT ま (GTR 
ま (B) 1))gTF BE6 OHR_ CA(OK1) ) =CA(H(G) ) THE 
N 73M_ ELSE F=1 iLUCRTE 2 2 sFRTNT の コウ 
まき 有 BEEP saBDTOD る Mg 

73M FOUR T=1 TO 4 sgLHCATE 1 旨 。 エ +1WgFRTINT LUR 
ま (T) giNEXT 

7 人 4 ロ = ロ + じ (0(3) ) LHCRTE 42 sFRTNT "ヨウ 
1 PsBEEF ITF CA(OH(1) ) =CA( ロ (SG)) NLI CaA(H( 
1))= じ (OH(3) ) THEN ドド =1 

ZSM_ FUR エ =1 TO 4gLUCATE 1 旨 。T+T2 siFRTINT HIM ま 
(T) siEEEF siNEXT 

76M FUR 1=W TH 1MiNEXT 1gH=O(1) siBHSUB 1 
MsLUCRTE 16。4siPRINT G 信 

77M LOCERTE 17.SaFRINTM ま 

78M_ FOUR 1 エ =1 TO 4 sgLUCATE 1 。 エ +6gFRTNT NM キ ま 
( エ ) siEEEF sNEXT 

79M HO (SE) iBOUSUE 15sLOUCATE 16.BiFPRINT ら 5 
ロ 和 ま sLUCRTE 1749iPRINT MM ま 

BMM IF F=1 THEN F=M ぬ siGOHTO Bd3 

1 FHR 1=1 TO 4sLUCATE 1 旨 。 エ +1MgFRINT OM 
ま (1) giEEEF' siNEXT 

GM H=0(3) sgBOSUE 1SMsLUCATE 16.。12 sgFRTINT 
SQ まま LUCRTE 17。13sFRINT MM まま 

83M FUR T=M TO SNEXT 1 

84 ウ ロ =VRL (RIGHT ま (STR ま (6) 。1 ) ) :GM=VAL (RTGH 
まま (STR ま ( ロ NM) 。1 ) ) 

BSM IF E ド 9=1 THEN まま = リウ ロリ 9 ヒ ES ラフ テト マス 19 8s ら 5 
= ロー ド Rd3s5UTOU 94 


7 の 


670 一 700 


710 一 930 


コン ビュ ー タ の 処理 。 コ ン ビ ュ 
ー タ の カー ド を 配る 。 

コン ビュ ー タ 、 フ レイ ヤー の 得 
点 計算 。 勝 ・ 負 な どの 文字 列 を 
AS に 代入 。 S は 得点 計算 . 


6 の IF ド Fa=1 THEN 


まま = リリ グー ロリ アラ 8 テリ マー 00 s ら = 
ら ー ド Ex%9 GUHTOU 94M 
9/MM IF F4=1 THEN 内 ま = リ アナ 9 いい 4 ヒヒ 9ー チリ ドブ 1 s 
= ロ +F ド 3 sGUTOU 94M 
BBM IF F 人 =1 THEN 人 Q ま = リア ナダ いい アラ E/ テ ザ マ ! 0 s ロ = 
ら + ド 9 sGUHTOU 94 中 
d7M IF GNM= 罰 THEN まま = リア ナダ 1 ニケ テマ シタ ー し " sG ロ UT 
ロロ 94 凡 
7M ゆ MM IF G ロ = 。 THEN まま = リ ロダ ロリ ー ニ カケ テマ シ ター 9 sGHT 
ロロ 94M ' 
71MM IF GEGM THEN まま = リア ナグ ノー カチ テリ マイ 1 リュ ロ = ロロ 
+ ド に: 
7 ァ M IF ロロ:GM THEN まま = リロ ケー カチ テリ サマ 1 リロ = 
ー ド : 
73 ゆ ウエ F ロ =BM THEN まま = リヒ キワ ロケ テ " マ ! リ 
9 人 44 届 “ 


93 FOUR 1=1 TH LEN( 介 まま) 』H ま =MTL ま ( ま 。T 1) 』L 
UCATE ヨコ + エ 4 全 MsgFLRY "oo7164b" sEFRTNT H ま 

76M FOUR = TH SNEXT J。1 

77M IF HSEG THEN HS=S ELSE IF Gi1 THEN 
1M 人 44 以 

78M_ FUR ]=M TU SM INEXT TiF ロ = =F オ ニテ 以 ミド ワニ 
Mi に 介 = ニ M ロニ MG ロ M= テ MM iCLS sgFHR 1= 四 TH 9gFLAY "Go 
6164bV siNEXT BHT 5M 

79M_ FUR エ =1 TU 4 iLHCATE X。T+6 giFRTNT UR ま ( 
TI) giNEXT 1 

1MMM _ IF VAL(RIGBHT ま (GTR ま (CA(((Xー 人 2) / 戸 + オ 1 ) *3 
) すじ 且 ((( メ ーー ) / 王 + す で) %3) ) 。1) ) : 旨 THEN RETURN 
1M1M FUR [=1 TH 4iLHCRTE X。T+T1MsFRINT ロ NM 
ま (T) saNEXT 1 

1M ど 連日 モ (( メ ー ゼ ) / 呈 1 ) *3sGBUSUE 1 呈 以 LUCRTE X+ 
1 1EEFRTINT Ga ま LUCATE X+2 。13gPRTNT 販 ま 
1M3M RETURN 

1M4M CC=M ECLS :EEEF' 

1MSM_ LUCATE SB EsFRTINT "HIT-SCORE "9 ョ HS LOC 
RIE 4.BiFRINT ! ロコ ME ロ VERKR" 

1M6M_ LUCRTE 父 。1sFRTINT "TRY RBRIN .。。。 ち 5 
DaCG Eeey !" 

1M7ZM IF INEEY ま =" " 
MM_ ELSE 1 中 6 中 

1MBM " 

1 CLG 

11MM LOCATE 呈 。11 sFRTNT 
RI | 

111M LOCATE 2 413』FRINT 
己 Hi11 Goft " 

11 ど FM FUHR ij= ゆ TOH 1M 
113M_ FLATY "SLL64BE" 
114M _ NEXT 
11EIA LHCATE 呈 
116 尽 
1 1 7M ぬ 
11 は M ぬ 
いい 層 。 由 
119M ゆ 


THEN_CLG SG= 呈 以 MM :GHT 


! 月 


"CRRH GBRME THE 人 台 


"CopyF1g ロ ht by 1m 


sa16gFRINT PFUSH_ RNY EEY !" 


IF INEEY ま = リリ 
じ L ら 
SE ま (1)= リ て が リー ム は ふつ 30 トラ フウ? 


THEN 116 以 
が *e ム て 


ら E ま () モリ だ くに ルー ルル は た に よっ て 5 か ~ 0 て せ コ 凍 。 


950 一 960 


970 


980 


990 一 1000 


1010 一 1030 
1040 一 1070 


1090 一 1300 


1310 一 1340 


850 一 930 で 代入 され た 文字 
表示 。 


最高 得点 か どう か 比較 し 、 も し 、 


最高 得点 だ っ た ら 、 書 きか え 
る 。 

再 ゲ ー ム の た め の 変 数 の 初期 
化 。 村 じじ め に も どる 。 

カー ド を 表示 する 。 

カー ド を 表示 する 。 

ゲー ム オ ー バ ー 処 理 。 ス ペー 
ズ ・ 守 キー が 入力 され る まで 、 
1070 行 を レー フ 。 

オー フ ニ ン グ ・ メ ッ セ ー ジ の 
出力 。1290 行 で は 、 キー 入力 
待ち 。 

カー ド を きる 。 


ん ルプ ん 


@THE KABU の つづ き 


ます 。" 

1 GE ま (3)= リ % ヤブ 7 に だ くわ 
121M GE ま (4)=" ao 
1 GE ま ( コ )= リ " 人 だ の wp 9 相 M 
123M SE も (6 ら )= ニ リ アラ シル ( あ が ね た) 。。。 7 IT 
124M GE ま (7) = リー アラ 5 ババ (わた し ) 。。。 ーー は 1" 


125 SE ま (B)= リ MP os 
126M SE ま (9)= リ きれ わけ 。.。 IGE ま (1W) = リ 


%% え 日 IT ANY FEY xx 

127M FUR 1T=1 TU 1AiFDR コ =1 TULEN(SE ま (1 ) ) 
:MT ま =MILI ま (GE まま (1) 。]。1) :IF MT キキ = リ !" THEN B= 
ELSE =1 

12B LUCATE J。T*2+S saFRINTM1 ま *:TF BE=1 THE 
N BEEP sNEXT J。1 ELSE NEXT J。1 

129 以 ド ま =INPUT ま (1) gCLS sRETURN 

13A GOTU 129w. 

131 の の じ =1 :FOR 1=1 TU 4 SBTEF 4:FHR ]=M TO 
3 CA(T+J) =C iM ま ( エ +J) =CHR ま (HBW+J) :NEXT 
J iC=C+1 :NEXTI 

132 FR 1=1 TO SR1=INT(RNLI( 1 ) *4@)+1 :R 
2=TNT(RNLI( 1 ) *4) +1 

133w SMQF CA(R1) 。CA(RG) :BMQF MA ま (R1) 。M 人 まま 
(RS) :NEXT1 

134 FOUR 1=1 TO 3: 人 (1)=IiB(T)=I+3』C(1)=1 
+6 si(T)= エ +9iD(T)=1+12 siNEXT 1 :RETURN 


フロ ッ ピ ー デ ィ ス ク ド ラ イブ 
これ さえ あれ ば 、 プ ログ ラム の 管理 は ラン ラン ? 


ちよ つと 高い けれ ど 、 や つば りあ る と 
便利 な の が ザ フ ロ ッ ピ ビー ディス ク ・ ド ライ 
プ 。 何と いっ て も アフ セス ・ マ イム が 束 
<、 エ ラー が 少な ご 、 容 量 が 大 きぐ 、 が 
ん じ よ う で …… と いう わけ で 、3.5 イ 
ンチ フロ ッ ピ ー で MSX の プロ グラ ム を 
保存 、 管 理 す る ユー ザー が ふえ て きだ よ 
うだ 。 

最近 は 、SANYO 〇 の WAVY27 や ナシ ーー ここ 。、 


の の の の タタ この や 
ne の ここ の ペン て < マ ここ ママ > っ 
ヨナ ル の CF3300 の よう に 、 デ ィ ス ッ ・。 0 0 
で の っ くつ ンプ つく うう の で うこ の この の で 2 
の の こつ の の て テー に 。 


* ゃ 一 一 PE 2 に の ァ ベ ミ 、・ 
ト ライ ブ を 内 蔵 し て いる も の の ヘン OO の の ここ に こつ ここ ここ の て 
0 の この の の Yo 0 

MC の プ EN の NR NZ の ー Sd 
ye  。。 還 朱 泊 泊 タタ 4 アア の この っ 

も 出 て きだ se。 生還 還 還 生 M2C ベー AA 

KK 

(5 o ) か _。 時 生 朱 朱 朱 示 示 泊 Re Pe qa 由 の の に 
So、 うう が ここ 
や e 

No 


KK 
の 


つて で つう と つつ に うつし 2 


KS 2 座 の P 
や 
の うく 、 際 2 う ベ 、。 


ゃ 

PE に TK フ 

や 。 テ この 3 OO 
0 0 ov 
て の の 


アド レス や 
メモ リ 容 量 の 
関係 で 、 プ ログ ラ 

ム に よ つ て は ディ ス 

に セー ブ で き な い こと が 
ある けど 、 そ れ は ほか の パパ ソコ ン で も 似 * 
だ よう な も の 。 で 2 
今 、 ほか の B ビ ピッ ト パ ソ コン で は 、 フ 2 N 
ロッ ピー が ほとん ど あ た り ま え に な っ て 

いる けれ ど 、 そ の うち 、 MSX で も フロ ッ 

ツ ピ ー が 主流 に な る ん じゃ な い だ ろ うつ が ガ 。 


7 ぎ 2 


ヵ月 に 一 度 だ け で す が 、 よ ろ し <〈。 


MX びいき の 
ブロ グラ ム ホ シェット で す 


プロ グラ ム ポ シェ ッ ト は 、 毎 月 毎月 み 
な さん に お 目 に か か れる と は 限り ませ 
ん 。 と いう の も 、 家 庭 の 事情 が ある の 
を 5 

な ん と 、 わ だ た し だ た ち は 、 隔 月刊 。 道 理 
て 、2 が か が 月 の あい だ 、 よ れ よ れ に な っ 
だ た ポシェット が 本 屋 る さん の パソ コン 雑 
誌 コ ー ナ ー で 埋もれ て いる わけ で す 。 
月 刊 に し な る い ! と いう 声 が 読者 の 
か た だ たから 寄せ られ て は いる の で す が 、 
わた だ し た ち は 読 者 の 投稿 ゲロ グラ ム が 
中 心 の 雑誌 で す 。 な る で く 質 の 高い 、 


お も し ろ い プロ グラ ム を 掲載 する に は 、 
と うし て も 2 か 月 の 時 間 が 必要 な の で 
す 。( 注 ・ 別 に 売れ て いな いか ら で は あ 
り ま せん リリ!) 

そう いう わけ で 、 い き な り 、 ア メリ カ 
と ツ 連 の 最終 核 戦 争 が は じ ま り で も し 
な いか ぎり 、 い まし ば らく 〈 の あい だ は 
2 か 月 に 一 度 し か お 目 に か か れ ま せん 
が 、 月刊 誌 ば か り を ひい き し な いで 、 
ポシェット も お 願い し ます 。 

な に し ろ 、 わ だ し た ち は 、 自 慢 じ ゃ な 
い が 、MSX び いき な の で すか ら 。 


共 の 


No / 3) 


ンタ ポ 信 
地 ン な 


10 月 5 日 、12 月 5 日 …… 偶 数 月 の 5 日 
に な っ だ ら 5、 わ だ し だ ちの こし と を (な 
る べく ) 思 に 旧 し て ほし いな っ と 、 思 
いま ず 。 

と ころ で 、10 月 5 日 発売 の プロ グラ ム 
ポシェ ッ ト No5 で も MSX の 厳選 プロ 
グラ ム を 10 本 掲載 する 予定 で す 。 短く 
て 了 ち こみ や すく て 、 お も し みろ みい ブロ グ 
ラム を 中 心 に 選び まし た 。MSX ユ ー 
ザー な ら 一 度 読 ん を どら や め ら れ な いつ" 
ログ ラム ポ ボ シ ェ ッ ト を よろ し く 。 

信 ん も に 。 よ みろ ル くだ ぞ 。 


月 刊 テ クノ ボリ ス , 
「 プ ログ ラム ポシェ ッ ト , で は 、 

キミ の 作っ た オリ ジ ナ ルプ ログ ラム を 
いつ も 募集 じ て い ます 。 


ゲー ム に 限ら ず 、 実用 プロ プラム や い だ 
ざら プロ グラ ム な ご ど なん で も 結構 で す 。 部 
門 は 次 の ら つ が あり ます 。 

人 @ 1 画面 プロ プラ ムーー リ スト が その 
機種 の 1 画面 の 表示 限界 内 に 入り きる プロ 
グラ ム 。 

ハーフ プロ グラ ムー 1 画面 以上 か 
ら 50 行 以内 の プロ グラ ム 。 

@ シ ョ ヨー ト プ ロ グラ ム 部 門 一 一 原則 
と し て 100 行 以内 の プロ グラ ム 。 お も し ろ さ 
に よっ つて 20 行 くらい の オ ー バ ー は 認め ます 。 
マシ ン 語 の 場合 は 、DATA の 形 に し て BA 
SIC に 組み こん で こく だ さい 。 ご の 場合 、 秒 
ざ ず プ ログ ラム 中 に チェ ッ フ サム ・ ル ー チ ン 
を 入れ る こと 。 

人 @ 本 格 プ ログ ラム 部 門 一 一 長 さ は 問い 
ませ ん 。 と に か ぐ 編 集 部 を 「 お つ 」 と いわ 
せる よう な プロ グラ ム を 望み ます 。 
わび さび プロ グラ ムー 一 原則 と し て 
1 行 、 ま だ は 1 画面 以内 。 思わ ず 笑 つて し 
まう 奇抜 ね な ゲー ハム や 、 バ パ バカバカしい ジョ ー 
を プロ グラ ム し て くだ さい 。 な か で も 、 
特に 採用 され る 自信 の ある 入 は 「 絶 対 採用 
され る 自信 が ある ヶ 」 と 大 きぐ 書い て こ だ 


授 稿 の ルー ル 


田 ぜ つっ だ たい オリ ジ ナ ル や ーー 次 作 や 
単純 な 移植 は 採用 し ませ ん 。 他 の プロ ブフ 


テク ノボ ポリ スム ッ ク 


ム ハ を 部 分 的 に 参考 に し だ 場合 は 、 秒 ず 参 考 
文献 を 明記 し て こく だ さい 。 

較 重 投稿 厳禁 一 一 同じ プロ ブラム を 
他 誌 に も 送る の は 遠慮 し て くだ さい (投稿 
を 受け と つて 3 ヵ月 後 く らい に は 、 採 用 ・ 
不 採用 の 通知 を 出し ます )。 

一 同じ プロ グラ ム を 手元 に 一 投 
稿 作品 は お 返し で きま せん 。 ま だ 、 採 用 レ 
だ 場合 、 そ の プロ プラム の 内 容 に つい て お 
きき する こと が あり ます の で 、 同じ プロ グ 
ラム ハ を セー ブ し た テー プ な ど ご ど を 和 め ゆめ ず チチ も と 
に 保管 し て お いて くだ さい 。 

較 テ ー ブ で 投稿 一 一 有 恥ず カセ ツ ト テ ー 
プ に セー ブ し て 送っ て くだ さい 。 欠 必 ず べ 
リフ ァ イ ( つ まり COLOAD) す る こと 殺 
意 の だめ 2 回 以上 同じ も の を セー ブ プ し て お 
ここ と @ フ ァイル 名 と 機種 名 、 プ ログ ラ 
ム ハ 名 を カセ ッ ト テ ー プ の ラベ ル に 明記 し て 
お ここ と @ な る べ こ コン ピュ ユー タ 用 の テ 
ー プ (録音 時 間 の 短い も の ) を 使用 する こと 


次 の こと を 書い だ 手紙 も 送 つ て くだ さい 。 
住所 ・ 名 前 ・ 職 業 (学校 ・ 学 年 ) ・ 年 過 
・ 電 話 番号 @ プ ロブ ラム を 作 つ だ 機種 
と 使用 言語 (機種 に よ つ て は 増設 の オプ シ 
ヨン や メモ リ 、 モ ー ド 、 ベ ペー ジ な ども モ 正 催 
に ) 氏 ロ ー ド 方 式 を 明記 (な る べく デー 
タレ コー ダ の 機種 名 や ボー レー ト も ) 欠 
プロ グラ ム ( ゲ ー ム ) の 名 前 、 遊 び 方 ・ 使 い 亡 
を な る べく くわ し ぐ 。 プ ログ ラム の 見 どこ 


STAFF 


人 @ 活 集 担当 山森 沿 


ろ や 自慢 な ども 書い て こく ださい 。 書き 方 が 
うま いと 採用 の 可能 性 大 )。 な お 、 ア ド ベ ン 
チャ ヤー ゲー ム な ど は 答え も いつ し よ に 。 
人 変数 リス ト 、 プ ログ ラム 解説 (マシ ン 語 
の 場合 は 、 プ ログ ラム エリ ア 、 ワ ー ク エリ 
ア 、 メ モリ マッ ツ プ な ども ) 代 参 考 文献 、 
参考 作品 (雑誌 の 場合 は 〇 年 〇 月 号 ひ ベー 
ジ と 明記 。 不 確か な 場合 は 不 採用 に な る ご こ 
と が あり ます ) 

較 封 筒 に は 一 一 表 に は 応募 する 部 門 を 
赤 で 明記 、 裏 に は 機種 名 と ロー ド 方 式 を 書 
いて こぐ だ さい 。 

較 も ちろ ん 賞金 も 出 ま す 一 一 採用 され た だ プ 
ログ ラム ハム に は 、 プ ログ ラム の お も し ろ さ な 
ど に 遍 じ て 、 規 定 の 賞金 を と し あげ て いま す 。 


あて 索 は 


〒105 東京 都 港 区 新橋 4-10-1 
徳間 書店 テ フ ノノ ボリ ス 編 集 部 


1 画面 プロ グラ ム 
リーフ ブロ グラ タム 

ポ シ エ ッ ツ ト シヨ ョ ー ト プロ グラ ム まま 
本 格 プ ロブ ラム て 
わび さび プロ グラ ム 


編集 横川 理 彦 ・ 小 笠原 佳之 ・ 匿 名 希望 ・ 山 科 教 之 


代表 紙 デ ザイ ング 鈴木 俊明 


@ 本 文 デ ザイ ンプ スズ キト シア キ デ ザ イン オフ ィ ス 
仙 イ ラス ト / 橋 岡 正和 ・ お お ば みわ ・ 増 田 秀美 


写真 萩原 人 


代 フ ィ ニ ッシュ ・ デ ザイ ング ノ 候 創 文 新 社 


@E 屈 | 凸版 印刷 燃 


人 @ 徳 問 書 店 1985 本 誌 掲載 の 写真 ・ イ ラス ト 、 


無 灯 転 載 を 禁じ ます 。 


記事 お よび ブロ グラ ム の 


| | | | | 1 馬入 才 和 る 昌 北 さ 光 借 上 11 1 1 1 1 1 
通信 下 取 販売 ・ 買 取 フレ ッシュ な 社員 


マイ コン ワー プロ *・ 周 辺 機器 : ツ ジフ ド 書 籍 な と まとめ て 馬 


N に CC PC-9801M2 新 同 . シヤ ー プ MZ-80B 
了 ⑨③ -3801F2( 新 同 ) ま MZ〆 -2200( 専 用 レコ ー ダ ー 付 ) 
PC-9801 X1.X1C.X1D( 本 体 . モ ニタ -) 
選 ⑮ -8801MK II SR30 新 同 ) 。 MZ -/00 シ リー ズ 
PC-8801MKI 10.20.30 > MZ-1200.80K,C シ リー ズ 
PC-8801 64.000 リ MZ -6541( プ リン タ 、 モ ニタ マー セット) 
PC-8001MK II SR( 新 同 ) 5 パソ ピア (PA -7010) 
PC-8001MKII 6 た ボツ ビラ ング 


34 
PC-8001 、(  MB-16003(16000 シ リー ズ ) 
PC-6601 ペー シッ クマ ス ダ ーJ「 カ ラー カブ 9 人 
PC-6001MK II SR 組 6 6 ) 還 錠 8 
PC-6001MKII M-8 44.000 
PC-6001 0 5 FM- SA 
PC-100K モ テル 3)・PC-KD651ty ト 赤 3 JR-200 16.800 
INM-9200RO (36 析 巡 プリンタ) .000 CF-3000(MSX) 起 ) 
NK -3618 -22( 旨 字 ブ プリンタ) 0 公選 雪 に 必 = 月 に 6. 


GP-550 ( 俊 字 プリ ンダ) 
3 ,UOO MI 0 
超 高 解 像 640 x400 モ ニ マ ター 0 MX 


グロ リー ニッ ン モデ タニ .000 ぁ 。 フロッピー ディス PCFM 用 ) .0008 中 いい 還 - ーー ニー 
シャ ー プ MZ-2000 M-5 SC-3000 、PV-2000 の 古 4 ノ ト 大 量 展示 ./ 


支 そ の 他 の 商品 在庫 も 豊富 に あり ます 
@ 中 古 マ イコ ン 在 庫 300 台 


下 取 ・ 売 却 を お 急ぎ の 方 は 直接 現品 を 
宅 旬 便 な ど で 下 記 へ お 送り 下さ い 。 


@ 下 取り ご 希望 の 場合 は 、 一 週間 以内 に 、 ご 希望 商 品 と 下 取 分 代 
多 差 しら | き の 請求 書 を お 届け 致し ます 。 

@ 売 却 ご 希望 の 場合 は 、 現 品 が 着き 次 第 、3 日 以内 に 高価 買取 の 
代金 を お 届け 致し ます 。 

@ 下 取り ・ 売 却 ご どちら の 場合 も 周辺 機器 、 ソ フト 、 書 籍 まで 全て 
高価 で お 引取 り 致 し ます の で まとめ て お 送り 下さ い 。 


人 @ 今 すぐ 注文 と 商品 名 ・ 
所 ・ 氏 名 ・ 電 話 番号 を 明記 
の 上 、 代 金 を 同封 し て お 送 
り 下 さい 到着 後 3 日 前 後 
て 商品 か お 手もと に 届き ま 

本 

削 、 お 急ぎ の 方 は 今 すぐ お 


| 電話 て お 申込 み 下 さい 
現金 特 価 2 し し し に て のち 天 の 


グラ の の の の | | 合 は お 電話 に て 受付 て お り 
中 古 ) / 


PC-8001MKTII 

、 ' 定価 \123-600 

フト 2 ブレ ゼン ト 
ーー 


ます 


U 代 PC リー ス ヘス ト セ ラー 機 


バ ソ コン ラッ ク 限 定 50 台 特別 販売 高級 パ \ ソ コン デス ク ん yy ト OK/ 
IE 人 Ep が 兵 雪 特 価 あ / の ダ の の 和 WE: 「 ミン 


@⑨ 多め) が カン 
@ 5 呈 イ シド オオ の aa は 抜群 
の 衣 の の 剖 さ 。 は 自由 自宅 


1 
クレ ジッ ト 


今 すぐ こ 希 望 商品 名 と 住所 ・ 氏 名 ・ 電 話 番号 を 明記 の 上 、 代 金 を 同封 し て 現金 書 劉 に て お 送り 下さ い を 払 Ce 箇月 々 \3.800X12 回 る 衝 月 々 \3.300X12 回 
到着 後 3 日 前 後 て 商品 が お 手もと に 届き ます な お 、 お 急 き の 方 は 今 すく お 電話 て お 申込 下さ い 0 ”。 930( 高 き ) ' aa 、930( 高 ) _ 
@ クレ ジッ ト て お 求め の 場合 は お 電話 に て 受付 て お り ま す Xnn( ヶ ) 0( 委 生 !200( 幅 ) xn( / ) *740( バ 行 7000 欄 ) / / ) 740( 虹 行 


ーーーー ニ ーー ニーー ニ ーー ニー ニー ニー ニー ニー ニー ニーー ニ ーー ニーー ニ ーー ニー ニーー ニ ーー ニー ニー ニー ニー ニー ニー ニー ニーーー ニ ーー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー 


め な だ の マイ コン を ト 取 し ます / : 


9 マイ コン の お 求め 、 下 取 、 売 区 は 今 すぐ お 電話 で / ロー ビュ 


g08(4B3)4455 iiE: 
1 帆 2 京 メー カー 品 品番 」 
! P 日 3 都 征 価 1 
* ポ 本 ? 渋 2 購入 機種 (新品 ・ 中 古 の ! 
! ッ ン マ 2 谷 メー カー 品名 品番 ! 
ェ 流 イ 区 定価 ) 
較 日 ホ マ イコ J 遠 通 BE 記 
1 才 坂 4 2 
朋 IU 時 1 由 アツ ジッ ト の 別 
〒150 東京 都 渋谷 区 道玄坂 2-3-2 大 外 ビ ル 代 03(463)4455 II 赤 エ レベ ペー ター は 更衣 あり まま ぞ 
| 全国 の 販売 店 様 へ 様 へ | パソ コン デス フ の 卸 も 行 つ て お り ま す の で 、 お 気軽 に お 問い 合せ 下さ い 。TEL. 03-463-4612 


スト の 2 ちの 和 2 の の 245LrRCE ン ag 
ィ 口 ーーー ーー 


人 ー 
本 


「 まさ に 恐る べき 、 パ ワー。 人 類 を 進化 させ る 新 世 代 マ シ 

ン MSX2、 遂 に 登場 。 ま ず 、 そ の 全貌 を 明らか に し まる 
| MSX の 可能 性 は 、 強 力 に バージョン アッ プ さ れ 、 い ま 
( 新 局面 が 拓 か れ ま し た 。 噂 の 新 世代 マシ ン 、 MSX 2 
! が 、 遂 に を の 実体 を 現 わ し た の で す 。 その ノワ ー は 、 
まさ に 強大 。 ヤ マハ の YIS604/128 は 、 広 大 な メモ リ 
256K バ イト を 搭載 し 、MSX-BASIC Ver.2.0 の 可能 
性 を 最初 か ら 実 現す る マシ ン で すま 新開 発 超 LSI と 大 
容量 128K バ イト の ビデ オォ RAM で 、 画 像 処理 能力 は 
飛躍 的 に 向上 。512X212 ド ッ ト の 精細 画面 22 ペ ー ジ 
に 、512 色 中 同時 16 色 で 、1 ド ッ ト 単 位 の 配色 可能 。256X 
212 ド ッ ト モ ー ド で は 、 同 時 256 色 の ビッ トマ ッ プ "表示 。 


に クロ ソフ ト 社 の 商標 で す 


SBLILT 


へ 、 ご 4 の 正統 派 久 5 司 口 ヨ II (RAM64KB) \59,800 も 新 発 売 。 
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F5 5 SELECT STOP 1 発 
行 
| 「iNS lpEE 上 所 
P ス 
侍 
間 
6 詩 - 
世 ヨ 
0 
ニー) 旨 王 ジ 2 
\ 電 
cas 話 】 
| か 類 ・ も 
京 
0 
3 # 
6 デー 
4 
3 
2 ] 
6 
の 
3 
] 
きら に テキ スト 表示 も 80 文 字 X24 行 。 メ イン RAM 5 も 128 く 主 か 仕様 > 豊 CPU :Z80A 全 RAM : 256KB( メ イン RAMI28KBTVRAM 代 
8 6 128KB ) 旬 ROM:48KB(MSX-BASIC Ver.2.0) 久 表 示 能 力 : 最大 80 
K バ 人 イト を 実装 し まし だ た 。 メモ リマ ッ パ と メモ リ デ イ スク 娘 字 X24 行 供 グ ラフ ィ ッ ク 機 能 :512X212 ド ッ ト ( ピ ビッ トマ ッ フ 、 512 色 編 
機能 で フレ 活用 で きま あま また だ た 、 カ レン ダダ 機能 や マツ ウス サ 中 16 色 、 2 ペー ジ )/256X212 ド ッ ト (ピット マップ 、 同時 256 色 、 2 ペー 集 
8 8 人 * ジ ) 他 代 サ ウン ド 機 能 :8 オ クタ ー ダ 3 重 和 音 十 | 効果 音 但 カ レン タ 時 Eo 
ポー ト な と 、 便 利 て 楽しい 機能 装備 全身 が ノワ フレ て お 計 : リ アル タイ ム ( バ ッ テ リ ー バ パッ クア ッ プ ) 介 マ ウス : 汎 用 //0 ボ ー ト に 0 
キャ プ テ ン ター ミナ ル に も 変身 する 、 優 れ た 拡張 機能 。 "て 7 ポー ト @ 付 属 ノ フト パフ コン 針 導 2 フト ROW の 
2 5 0 @ 写真 の マウ ス 、 フ ロッ ピー ディ スク ドラ イブ 、 
2 つの カー トリ ッ ジ スロ ッ ト で 、 標 準 仕様 の ソフ ト や 周 ケー ブル は 別売 で す 。 
辺 機器 に 対応 。 従 来 の MSX ソ フト も 、 す べ て OK。 ま た 3 
独自 の サイ ドス ロッ ト で 、 デ ジタル シン セ や ワー プロ に 変 1 
o 一 EN 中 の い 7 
身 。 専 用 ユニ ッ ト で キャ プ テ ン ター ミナ ル に も 変身 で き 0 
ます 。( 今 秋 予 定 )。 き ら に 、 ビ ピル トイ ンプ ログ ラム ソ ケ ッ り 
ー キ ー - ユ ュ い 代 
ト を 装備 。 専 用 の ROM メ パッ ク ( 発売 子 定 ) で 、 多 ー 
彩 な 拡張 性 も る ら に 充実 。 ま る に 、 ス ー パ ーMSX で も 
な 記 旧 木 体 価格 \99,800 
] 20La ⑯MSX マ ウス MU-0| \|2.800 @ 大 容量 IM バイ ト 両 面 
倍 密 マイ クロ フロ ッ ビ ピー ディ スク ドラ イブ フ FD-05 \64.800 
@FD イ ンタ ー フ ェ ー ス ケー フル FD-05」 W,000 
※ フォ ー マ ッ ト 時 は 720KB ーー ュ 
生 . 
価 
@ 上 記 の 製品 の お 求め は 、 も より の 電器 店 、 パ ソコ ン 専 門 店 、 オ ー デ ィ オ 店 、 有 名 スー パー、 百 貨 店 で どう ぞ ルル 
@ 商 品 内 容 に つい て の お 問い 合わ せ は 、 ヤ マハ MSX イ ン フ ォ メ ーション セン ター 東京 TEL 03(255)4487 大 阪 TEL 06(251)0535 八 
@ 4 に 42 の 詳し い 資 料 の ご 請求 は 、〒〒430-9| 浜 松 市 浜松 郵便 局 私 書 箱 3 号 日 本 楽器 製造 株 式 会 社 AY-XY 係 まで O 
円 
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